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IDENTIFICATION 


PRODUCT CODE: AC-E493A-MC 
PRODUCT TITLE: CZTUQAO TMO3/TU4S BASIC FUNCTION TEST 
DATE CREATED: 25 MAY 1978 
MAINTAINER: CSS - NASHUA 
AUTHOR: J. G. ADAMS/R. J. COLLINS 
THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 


EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES 
NO RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 


THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A 
LICENSE AND MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE 
TERMS OF SUCH LICENSE. 


DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR 
THE USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS 
NOT SUPPLIED BY DIGITAL. 


COPYRIGHT (C) 1975, 1978 BY DIGITAL EQUIPMENT CORPORATION 
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ABSTRACT 


THIS PROGRAM IS INTENDED TO TEST ALL OF THE BASIC 
FUNCTIONAL LEVEL OPERATIONS OF THE TMO3/TU4S 

MAG TAPE SYSTEM. ALL FUNCTIONS; WRITE, READ, SPACE, 
ERASE, REWIND, ETC; WILL BE TESTED. IN ADDITION TO THE 
TMO3/TU4S TESTS, THE RH WILL BE TESTED SEPARATELY IN 
SO FAR AS IT IS POSSIBLE TO SEPARATE THE RH FROM THE 
TMO3/TU4S ITSELF. 


REQUIREMENTS (HARDWARE) 
ANY ; a PROCESSOR 
8K OF CORE 
CONSOLE TTY 
TMO3 MAGTAPE CONTROLLER 
MASS BUS CONTROLLER 
TU45 MAG TAPE TRANSPORT 


LOADING PROCEDURE 


USE STANDARD BINARY LOADING PROCEDURE 
STARTING PROCEDURE 


THERE ARE TWO (2) STARTING ADDRESSES THAT MAYBE USED: 200(8) AND 210(8) 


A. 200(8): STARTING AT THIS ADDRESS WILL CAUSE THE PROGRAM 
IDENTIFICATION TO BE PRINTED FOLLOWED BY 
REQUESTS FOR THE VARIOUS PARAMETERS NEEDED 
BY THE PROGRAM. 


B. 210(8): THIS ADDRESS IS INTENDED FOR USE AS A RESTART ONLY 
AND WILL USE THE CURRENT PARAMETER VALUES. 


**NOTE SEE ALSO SECTION 5-CONSOLE SWITCH SETTINGS 
‘* TYPE C TO RESTART PROGRAM (a@200) 


uN 
TMO3/TU4S BASIC FUNCTION TEST MACY11 30(1046) 13-JUN-78 13:44 PAGE 4 
CZTUQA.P11 13-JUN-78 10:34 


4.1 AUTOMATIC MODE OPERATION 


IF THIS PROGRAM IS LOADED AND RUN IN AUTOMATIC (CHAIN) MODES 
DEFAULT RESPONSES TO OPERATOR REQUESTS ARE USED, AND ALL AVAIL- 
ABLE TMO3/TU45 COMBINATIONS ARE TESTED. ADDITIONALLY THE SOFTWARE 
SWR IS INVOKED WITH A SWITCH SETTING OF 100000 (HALT ON ERROR) 

IF LOADED VIA ACT11 CHAIN MODE. 


*eEXCEPTION: IF THIS PROGRAM IS LOADED VIA TMDP CHAIN MODE THE 
PROGRAM WILL NOT TEST TMO3 DRIVE #0, TU45S SLAVE #0. 


** NOTE: THIS PROGRAM CONTAINS AN OPERATOR ASSISTED SUBTEST.THIS 
SUBTEST IS NOT EXECUTED IN CHAIN MODE.TO RUN LOAD THE 
PROGRAM IN DUMP MODE. 


SAMPLE START AT 200 


NOTE: DEFAULT RESPONSES ARE SHOWN IN ANGLE BRACKETS <>, 
OPERATOR RESPONSES ARE SHOWN IN PARENTHESES (), AND 
LOCATIONS CONTAINING THE DEFAULT ARE SHOWN IN 
TO INVOKE THE DEFAULT RESPONSE TYPE (CR). 


PARAMETER REQUEST: <DEFAULT> (RESPONSE) LOCATION: 


TMO3-TU4SS5 BASIC FUNCTIONS TEST (CZTUQA0) 
TYPE C TO RESTART 


REGISTER START: <172440> (CR) 
VECTOR ADDRESS: <224> (CR) 
DRIVE NUMBER: <0> (CR) 
SLAVE NUMBER: <0> (CR) 
SERIAL NO: 12345 
RH ONLY (NO=0,YES=1): <0> (0) 
IF THE SOFTWARE SWR IS INVOKED: 
SWR = <000000> NEW = (CR) 
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CONSOLE SWITCH SETTING 


CONTROL: 


1) CONTROL G < G>; 
SELECTS THE SOFTWARE SWR AND ALLOWS THE USER TO SELECT NEW SWITCH SETTINGS. 


THE MACHINE WILL THEN TYPE: SWR=XXXXXXNEW= 
WHERE: XXXXXX IS THE OCTAL CONTENTS OF THE SOFTWARE SWR. 
AFTER THE ‘"NEW="" HAS BEEN TYPED THEN THE OPERATOR CAN DO ONE 
OF THE FOLLOWING AT THE TTY: 
A) TYPE A NEW SWITCH SETTING 
B) IF A <CR> IS Imc FIRST KEY DEPRFESSE® Tit SOFTWARE SWITCH 
REGISTER CONTENTS WILL NOT BE CHANGED. 


2) CONTROL A < AD; 
ALTERNATES USAGE OF SWR FROM HARDWARE TO SOFTWARE & VICE VERSA, 


3) CONTROL C < C> 
RESTARTS PROGRAM AT 200 


4) CONTROL U < UD; 
DELETES ALL CHARACTERS TYPED IN RESPONSE TO A REQUEST. 


ALL SWITCHES EXCEPT 5-9 ARE USED AND THE NORMAL, OR DEFAULT, 
RUN IS DONE WITH ALL SWITCHES SET TO ZERO (0). 
ALL HARDWARE SWITCHES ARE DYNAMIC, AND MAY BE CHANGED AT ANY TIME. 


$W15(100000): 1=HALT ON ERROR 

0=CONT INUE 
$W14(040000): 1=LOOP ON ERROR (SCOPE: RH TESTS ONLY) 

0=CONTINUE 
$W13(020000):  1=DO0 NOT PRINT ERRORS 

O=PRINT ALL ERRORS 
$W12(010000): 1=CONTINUOUS CYCLE 

O=HALT AT END OF PASS 
$W11(004000):  1=INHIBIT ITERATION 

O=DO ALL ITERATIONS PER TEST 
$W10(002000): 1=HALT AT END OF CURRENT TEST 
aaa - wae 


SW4-0: SELECT TEST NUMBER::00=ALL TESTS 


THE USE OF SWC-4 IS TO ALLOW SELECTION AND CONTINUOUS 
EXECUTION OF ANY TEST. THE TEST SELECTION MAY BE CHANGED AT 

ANY TIME, HOWEVER IT IS ADVISABLE TO USE SW10 TO STOP THE 
PROGRAM AT THE END OF THE CURRENT TEST BEFORE SELECTING A TEST. 
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6. ERROR PRINTOUTS 


THE ERROR PRINTOUTS FOR EACH TEST WILL APPEAR IN THE SAME 

GENERAL FORMAT. THE FIRST LINE WILL ALWAYS SHOW THE TEST NUMBER AND ITS 
TITLE. THE SECOND LINE WILL BE AN EXPLANATION OF THE ERROR. THE 
FOLLOWING LINES WILL SHOW THE APPROPRIATE REGISTER OR ADDRESS 

VALUES THAT ARE APPLICABLE TO THE INDIVIDUAL TEST 


EXAMPLES: 


1. THIS EXAMPLE SHOWS A TYPICAL ERROR PRINTOUT FOR THE WRITE 
READ TEST: A WRITE CRC ERROR OCCURRED ON SLAVE 6. 


FT13: WRITE-READ TEST 
WRITE ERROR NRZ 


CS1 we BA FC CS2 DS ER TC 
144260 000000 015650 000000 000103 150600 100000 101306 
2. THIS EXAMPLE SHOWS A TYPICAL SPACE ERROR: 

THE FC IS NOT ZERO AT THE END OF THE OPERATION. 


FT14:SPACE TEST 
SPACE REVERSE ERROR NRZ 


CS1 we BA FC CS2 DS ER TC 
144230 177700 017162 177740 000114 150600 001000 161700 


3. THIS EXAMPLE SHOWS A SPACE OPERATION WHICH RESULTED IN 
INCORRECT POSITIONING. SHOULD BE AT RECORD 20, IS AT RECORD 22. 


FT14: SPACE TEST 
POSITION ERROR: 
REVERSE ERROR EXPT:20 RCVD:22 
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vs OPERATION 


THE PROCEDURES FOR OPERATING THIS PROGRAM ARE QUITE SIMPLE 
AND REQUIRE ONLY A FEW STEPS: 


LOAD ADDRESS 200 OR 210 
SET SWITCHES FOR DESIRED TEST CYCLE 
see*REFER TO SECTION 5 FOR DYNAMIC LOADING 
OF SOFTWARE SWITCH REGISTER. *** 
PRESS START 
ENTER APPROPRIATE RESPONES TO THE TTY REQUESTS 


ALL HARDWARE SWITCHES ARE DYNAMiC AND MAY BE CHANGED AT ANY 

TIME. THE NORMAL, OR DEFAULT, OPERATING SEQUENCE IS ALL 

SWITCHES DOWN (ZERO). THE END OF EACH PASS IS NOTED BY A 

MESSAGE STATING END OF PASS AND THE NUMBER OF THAT PASS. 

weeeeFOR THE DYNAMIC LOADING OF THE SOFTWARE SWITCH REGISTER REFER TO SECTION 5 *eeexe 


SINGLE TEST SELECTION: (SWO-SW4) 


WHEN SWO-4 ARE SET TO ZERO (00) THE SCHEDULAR WILL 
EXECUTE ALL OF THE TESTS IN SEQUENCE . IF SWO-4 IS 

SET TO SOME SPECIFIC TEST NUMBER THAT PARTICULAR TEST 
WILL BE EXECUTED CONTINUOUSLY. ANY TEST MAY BE SINGLE 
SELECTED IN ANY ORDER; HOWEVER, THE BEST WAY TO AFFECT 
THE CHANGE IS TO USE SW10 TO HALT THE CURRENT TEST, THEN 
CHANGE NUMBER AND PRESS CONTINUE. 
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SUBTEST SUMMARIES 


THE FOLLOWING IS A LIST OF ALL TESTS IN THEIR PROPER SEQUENCE. 
A BASIC DESCRIPTION OF EACH TEST IS PROVIDED TO AID IN UNDERSTANDING 
OF THE ERROR MESSAGES ASSOCIATED WITH EACH ONE. 


A. RH TESTS: THE FIRST TEN (10) TESTS WILL PERFORM BASIC RH 
OPERATIONS AS FAR AS IS POSSIBLE WITHOUT REQUIRING 
THE TMO3/TU45 ITSELF. (SEE RH ONLY OPTION; PAR 7) 


FT1: RH ADDRESSING: THIS TEST WILL ASSURE THAT THE 
RH WILL RESPOND WITHOUT CAUSING A BUS 
TRAP TO ALL TMO2 REGISTER ADDRESS 
IN SEQUENCE STARTING AT THE ADDRESS 
OF CS1 ENTERED BY THE OPERATOR. 


FT2: RH REGISTER BITS "eT aie a THIS TEST WILL ASSURE THAT 
ALL BITS OF THE RH WRITE/READ REGISTERS 
CAN BE SET AND RESET. 


FT3: RH INITIALIZE: THIS TEST WILL ASSURE THAT A RH INITIALIZE 
(BIT 5 OF CS2=1) WILL INDEED CLEAR 
THE RH ERRORS. 


* FT4: SILO TEST 1: THIS TEST WILL ASSURE THAT A READ FROM 
AN EMPTY SILO WILL CAUSE DLT TO SET. 


* FTS5: SILO TEST 2: THIS TEST WILL ASSURE THAT BOTH THE 
IR AND OR BITS WILL CORRECTLY RESPOND 
TO LOADING OF THE SILO WITH ALL ZEROS 
AND THEN A WORD OF ALL ONES. 


* FT6: SILO TEST 3: THIS TEST WILL WRITE AND THEN READ 
THE ENTIRE SILO TO ASSURE THAT DATA CAN 
BE PROPERLY FILLED AND READ. ALSO THE 
PROPER STATUS OF IR AND OR ARE CHECKED. 


* FT7: SILO TEST 4: THIS TEST WILL ASSURE PROPER RH11 
RESPONSE TO SILO OVERFLOW. 


* FT10: SILO TEST 5: THIS TEST WILL ASSURE SILO RESET 
BY RH11 INITIALIZE. 


wee NOTE: SILO TESTS (FT4-FT10) ARE FOR THE RH11 ONLY. *e¥t* 
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B. TMO3/TU4S BASIC FUNCTIONS: THE FOLLOWING FOURTEEN (14) 
TESTS WILL ASSURE OPERATION OF THE 
MAG TAPE BASIC FUNCTIONS. 


FT11: NOP TEST: THIS TEST WILL ASSURE THAT THE NOP 
FUNCTION EXECUTES WITH NO ERROR. 


FT12: REWIND TEST: THIS TEST WILL ASSURE THAT THE REWIND 
FUNCTION WILL POSITION THE TAPE TO 
BOT WITH NO ERROR. 


1. ISSUE A REWIND COMMAND 
2. AWAIT PIP RESET (MOTION STOPPED) 
r — THAT NO ERROR OCCURED 

- EN 


FT13: WRITE/READ TEST: THIS TEST WILL ASSURE THAT 
THE UNIT UNDER TEST CAN WRITE AND 
READ IN ALL DENSITIES (FOR BOTH PE AND NRZ). 


- REWIND TO BOT 
- WRITE 100 RECORDS 


C, D 
CHECK FOR ERRORS ON EACH RECORD 


. READ REVERSE THEN FORWARD ata 100 RECORDS 
- CHECK FOR ERRORS ON EACH RECORD 
. he: STEPS 2 THRU 5 FOR 556,800,1600 BPI 


DATA READ IS NOT CHECKED; ONLY THE FUNCTION IS TESTED, NOT THE MEDIUM. 


FT14: SPACE TEST: THIS TEST WILL ASSURE THAT PROPER 
POSITIONING IS MAINTAINED BY BOTH 
SPACE FORWARD AND REVERSE. 


1, REWIND TO BOT 
2. WRITE 100 RECORDS 
A. EACH RECORD IS ONE FRAME LARGER THAN THE LAST. 
THIS WILL ALLOW FOR POSITION CHECKING BY RECORD SIZE. 
- EACH RECORD IS ERROR CHECKED. 
DATA RELATED ERRORS ARE IGNORED. 
5. NOW SPACE REVERSE 77 RECORDS AND 
READ REVERSE 1, THE FRAME COUNT 
SHOULD BE 100. 
THIS IS THE SIZE OF THE FIRST RECORD. 
- NOW SPACE FORWARD 76 RECORDS AND READ 
FORWARD 1, THE FRAME COUNT SHOULD BE 177. 
THIS IS THE SIZE OF THE NEXT TO LAST RECORD. 
- CONTINUE THE SPACE AND READ (DECREMENTING THE RECORD COUNT EACH TIME) 
UNTIL ALL POSITIONS HAVE BEEN CHECKED. IF POSITION IS LOST; TEST ENDS. 
. —— STEPS 1 THRU 7 FOR PE. 
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FT15: ERASE TEST: THIS TEST WILL ASSURE THAT THE ERASE 
FUNCTION WILL INDEED ERASE TAPES. 


- REWIND TO BOT 

. ISSUE 200 ERRASE COMMANDS. 

- ASSURE NO ERRORS FOR EACH COMMAND. 
REWIND TO BOT. 
ISSUE A READ FORWARD COMMAND. 
THE TAPE SHOULD MOVE FORWARD UNTIL 
STOPPED BY OPI (APPROX 25 FT). 
— NO ERRORS OTHER THAN OPI. 

N 


FT16: TAPE MARK WRITE/READ: THiS TEST WILL ASSURE THAT 
A TAPE MARK CAN BE WRITTEN AND READ 
IN BOTH PE AND NRZ. 


1, REWIND TO BOT. 

2. ISSUE A WRITE TAPE MARK COMMAND. 

3. ASSURE NO ERRORS 

4. ASSURE THAT TAPE MARK STATUS IS SET 
IN DRIVE STATUS (BIT 2). 

5. READ REVERSE. 

6. ASSURE THAT TAPE MARK IS SET 

7. ASSURE THAT NO ERRORS OTHER THAN FCE OCCURED. 
8. READ FORWARD. 

9. REPEAT STEPS 6 AND 7 

+ — STEPS 1 THRU 9 FOR PE. 


FT17: TAPE MARK SPACE TEST: THIS TEST WILL ASSURE THAT 
SPACING WILL BE TERMINATED BY RECOGNITION 
OF TAPE MARK BOTH IN PE AND NRZ. 


REWIND TO BOT. 
WRITE THE FOLLOWING PATTERN OF 
TAPE MARKS AND DATA RECORDS: 


TM:20 RECS: TM:40 RECS:TM:60 RECS:TM:100 RECS:TM: 


- ASSURE NO ERRORS. 

ASSURE THAT TAPE MARK STATUS IS SET FOR TM WRITES. 

- NOW SPACE REVERSE 200 RECORDS. 

- THE SPACE OPERATJ“™ SHOULD STOP ON EACH 
TAPE MARK IT FIND... THEREFOR 5 SPACE 
COMMANDS ARE ISSUED TO COVER THE ENTIRE 
PATTERN WRITTEN ON TAPE. 

BOT SHOULD NEVER BE REACHED AND THE 
FRAME COUNT WILL REFELCT 

THE yo OF RECORDS BETWEEN 

TAPE MARKS. 

- REPEAT STEP 6 IN THE FORWARD DIRECTION. 

- ASSURE NO ERRORS OTHER THAN FCE. 

: es STEPS 1 THRU 8 FOR PE 
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FT20: WRITE CHECK TEST: BOTH WRITE CHECK FORWARD AND REVERSE ARE 
TESTED IN BOTH PE AND NRZ. 


CONAUSW hw 
a m a of . 


REWIND TO BOT. 

WRITE A 400 FRAME RECORD USING DATA 
PATTERN 3 (125125). 

ASSURE NO ERRORS OCCURED. 

ISSUE A REVERSE WRITE CHECK COMMAND. 
ASSURE NO ERRORS OCCURED. 

REPEAT STEP 5 FOR A FORWARD WRITE CHECK. 
oe STEPS 1 THRU 6 FOR PE. 

N 


FT21: ERASE HEAD TEST: THIS TEST WILL ASSURE THAT THE 
ERASE HEAD ITSELF IS OPERATING. 


- REWIND TO BOT. 
- WRITE 2 RECORDS OF 800(10) FRAMES 


EACH. EACH RECORD WILL BE 1 INCH 
OF TAPE. DATA IS NOT ALL ONES. 


- REWIND TO BOT. 
- NOW WRITE A 400(10) FRAME RECORD. 


THIS RECORD WILL BE ONE HALF 

INCH OF TAPE. THE ERASE HEAD 
SHOULD CLEAR THE REMAINDER OF THE 
FIRST RECORD (ONE HALF INCH). 
REWIND TO BOT. 

NOW READ THE SHORT FIRST RECORD. 
IT SHOULD BE 400(10) FRAMES. 


- NOW READ THE SECOND RECORD. 


IT SHOULD BE STILL 800(10) 
FRAMES. 


- IF THE SECOND RECORD IS TOO LONG, 


THE ERASE HEAD DID NOT FUNCTION OR 
/* IN THE WRONG POLARITY. 


10. E 


FT22: BUFFERED COMMAND: THIS TEST WILL ASSURE THAT THE 
TMO2 WILL ACCEPT AND EXECUTE ANOTHER 
COMMAND WHILE ITS SELECTED SLAVE IS REWINDING. 


.. 


REWIND TO BOT 


2. ISSUE 3 LONG WRITE COMMANDS TO ASSURE 


BEING OFF BOT. 


. ISSUE A REWIND COMMAND. 
- AS SOON AS DRIVE READY BECOMES SET, 


ISSUE ANOTHER WRITE COMMAND. 


- THE NEXT DRIVE READY SHOULD BE AFTER THE 


TAPE HAS REACHED BOT AND EXECUTED THE 
BUFFERED WRITE COMMAND 


. ASSURE NO ERRORS OCCURED. 
END 


SEQ 0011 
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FT23: READ IN PRESET: THIS TEST WILL ASSURE THAT UNIT 0 
IS REWOUND AND SET TO 800 BPI NORMAL. 
(ONLY IF SLAVE 0 IS SELECTED). 


ISSUE A WRITE COMMAND TO ASSURE 
BEING OFF BOT. 
ISSUE THE READ-IN PRESET COMMAND. 
- AWAIT MOTION STOP. 
. ASSURE THAT BOT WAS REACHED. 
ASSURE THAT THE TAPE CONTROL REGISTER 
aed TO 800 BPI ,NORMAL ,ODD. 


(THIS TEST IS ONLY PERFORMED IF THE SELECTED SLAVE IS ZERO (0). 


FT24: AUTOMATIC DENSITY SELECTION -WRITE NRZ,READPF: 
THIS TEST ASSURES THAT AW NRZ WRITTEN 
TAPE WHEN READ AS PE WILL SWITCH THE 
SLAVE TO NRZ MODE. 
1. REWIND SLAVE 
2. WRITE AN NRZ RECORD 
3. REWIND SLAVE 
4. READ RECORD IN PE MODE 
ze = DS REG PES BIT=0 


FT25: AUTOMATIC DENSITY SELECTION-WRITE PE,READ NRZ: 
THIS TEST ASSURES THAT A PE WRITTEN 
TAPE WHEN READ AS NRZ WILL SWITCH 
THE SLAVE TO PE MODE. 
1. REWIND SLAVE 
2. WRITE A PE RECORD 
REWIND A SLAVE 
READ RECORD IN NRZ MODE 
— DS REG PES BIT=1 


FT26: REWIND: OFF LINE THIS TEST WILL ASSURE 
THAT THE UNIT WILL REWIND AND 
GO OFF LINE. (NOT IF IN CONTINUOUS CYCLE) 


1. ISSUE THE REWIND OFF-LINE COMMAND. 
2. ASSURE THAT MOL (BIT 12 OF DRIVE STATUS) 
; eet INDICATING THE UNIT WENT OFF LINE. 


(THIS TEST IS NOT PERFORMED WHEN CONTINUOUS CYCLE OPERATION IS SELECTED: SW 12 = 


-LIST BIN,LOC,S 
- TITLE THOS/ TUS BASIC FUNCTION TEST 
;CZTUQAO 
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325 MAY 78 

sR. BARNES/R. J. COLLINS 

-MCALL .$ACT11,.SEOP,SCATCH, SSAVE, $RESTORE, S$CHAIN, SCHNMODE 
-NLIST MC 

LIST ME 

~ENABLE ABS,AMA 


CONSOLE SWITCHEStettteree 


7$W15(100000) i cont’ —— 
: NT 
3$W14 (040000) - oh (SCOPE(040000) RH TESTS ONLY) 
; NU 
3$W13(02000): 1=D0 NOT PRINT ERRORS 
$ O=PRINT ERRORS 
3$W12(010000): 1=CONTINUOUS CYCLE 
; O=HALT AT END OF PASS 
3$W11(40000): 1=INHIBIT ITERATIONS 
3 0=D0 ITERATIONS 
:$W10(002000) : 1=HALT AT END OF EACH TEST 
O=CONT INUE 
> SW WO0-4: SELECT TEST NUMBER :: OO=ALL TESTS 
3; USE SOF TWARE SWR IF HARDWARE SWR <15::00> = 177777 OR NOT AVAIL. 
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:TUGS REGISTER BlTSteeeeceeeer 


315 2:14 313 512 311 310 :09 ;08 :07 :06 :05 :04 :03 ;02 :01 ;00; 
0000000000000 OOOO OOOO OOOO 
:SC 2 TRE; SACP: SPR; : DNA; PSL; Al?; Al6; RDY; IE :FUN; FUN; FUN; FUN; FUN; GO ; 


}goxdgooo0¢o00 3000130003000 0000009001300 


: COUNT : 
O00 00 0000000000000 UU IO III IDI III 
: ADDRESS 
Foor prcenrmceragenommperrnenionsemncne wea 
: COUNT ; 
TO QIO000 0000000000000 000 QQ 
;DLT;WCE;UPE;NED;NEM:PGE:AXF:MDP;OR :1R ;CLR;PAT:BAI;U2 ;U1 :U0 ; 


300030000 0005000000 001A TOO TIT IAT T IITA 
sATA; sERR; ‘PIP; sMOL; sWRL; EOT; SPR; DPR: ORY; SSC; sPES; SDN; 108; TAK; ‘BOT; SLA; 


$0000 00050000001 OKT TATOO TI AT IAT ARITA 
i CDE; sUNS; sOPI; sDTE; sNEF ; afin: FCE; sNSG; at ne pant zFMT; CNT; RAR: ILR; ILF; 
sLRC 3 
00000000 0000000000000 0K T IKI IIIT 
: 3 ATTENTION 3 
: SUMMARY 


1 ReERSRR per omeretrpmme comment: 

: CHARACTER : 

7 oieeeaemerscumenrernirotepemecmeneeame esa 
A 


; BUFFER 

20X00 001290000 HHI 

708 ;0B ;0B ;0B ;0B ;0B ;DB ;0B ;0B ;WRT;MM ;OP ;0P ;0P ;0P ;MM ; 
3 sv segs as 8te 6s Fa P eCaerCak: 4s 2s ; G0 : 
DOQOOOOUOOOO 0000000000000 000002000000 00000000000 0000000000000000000( 
3 TYPE : s 6 6BPR F 
0° 7 wpeessereneneneeemecneesmennne- 
Z L P 


; NUMBER ; 
2000000000000 000000 00 0000000000000 000OOOOOOOOOUOOOOOOOONL 
sACL; sFCS; SAC; ENA; SPR; DEN; DEN; ‘DEN; FAT; FAT; FMT; cFMT; sEVN; SSN; SSN; SSN: 


s0T 3 4 ; 4 ; 1 
190030003 0000000000000 G00 00 1G O TOGO TOO GOOD GOODIE 
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REGISTER EQUIVStteteeeere 
000000 


000007 


sACT11 HOOK seeeteerere 
peste: SSVPC=. ;SAVE CURRENT LOCATION CTR 


- =46 
000046 ty SENDAD SET LOCATION 46 


000052 "woRD 0 SET LOCATION 52 = 0 
000764 * =$SVPC “RESTORE LOCATION CTR 


TTY INTERRUPT VECTORettteeeeee 


000060 -=60 
000060 012656 ~WORD = TTINT TTY INTERRUPT HEADER ADDRESS 
000062 000340 ~-WORD 340 PRIORITY LEVEL 7 


SOFTWARE SWITCH REGISTERtttererere 
;USED IF HARDWARE SWR <15::00> = 177777 OR NOT AVAIL. 


000176 .=176 
000176 000000 SWREG: 0 sSOFTWARE SWITCH REGISTER 
SSTART ADDRESSteeeeeerene 


000200 -=200 
000200 000137 001600 JMP START  ;PROGRAM START 


SRESTART ADDRESSteeeeeeeee 
000210 .=210 
000210 000137 002542 JMP ST4 
7TMO3 INTERRUPT VECTOReteeereeee 
000224 2224 


000224 012646 MTINT ; TAPE INTERRUPT HANDLER ADDRESS 
000226 000340 340 
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000510 


-=510 
sMASS BUS REGISTER EQUIVStetereeeee 


000510 172440 : 172440 


000544 172474 + 172474 
SCONSTANTSttteeceree 


000546 177776 : 177776 PROCESSOR STATUS 
: sSWITCH REGISTER 
:TTY READER STATUS 
: TTY READ BUFFER 
TTY PUNCH STATUS 
TTY PUNCH BUFFER 
> SERIAL NUMBER 
DRIVE TYPE 
: ITERATION AMOUNT 
: INTERRUPT VECTOR(RH) 
STARTING REGISTER ADDRESS 
$ ;BUS TRAP ADDRESS 
000576 000006 BIRP2: ;BUS TRAP PRIORITY LEVEL 7 
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sFLAGS AND COUNTERS*tteeeeeee 
000600 000000 


0 
0 
0 
0 
: @ 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
: @ 
0 
0 


000736 000000 
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DATA PATTERN GENERATORS*tet® 
000740 000000 


sALL ONE BITS 
;ALL ZERO BITS 
: s ALTERNATING ONE/ZERO BITS 
000750 012472 : sALL BITS 0-377 
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LOGIC TEST ENTRY TABLEttttereeee 
000752 000000 TSTTBL: 


WORD TEND 


001110 000026 TLAST: .WORD 26 sCONTAINS # OF TESTS 





H 2 
TMO3/TU4S BASIC FUNCTION TEST MACY11 30(1046) 13-JUN-78 13:44 PAGE 20 
CZTUQA.P11 13-JUN-78 10:34 SEQ 0020 


001600 -=1600 
PROGRAM START AND HOUSEKEEPING##teeeenee 


001600 012706 000500 #500,SP :SET STACK POINTER 
; SAVE VECTORS 


000004 - SET UP FOR TIMEOUT 
177777) =—:176714 os REFERENCE HARDWARE SWITCH REGISTER 


3 
$: (SP)+,(SP)+ ADJUST STACK 

000176 000550 : #SWREG, SWR ;POINT TO SOFTWARE SWITCH REG 

000004 ‘ : (SP)+,a#4 RESTORE VECTORS 

000006 (SP)+,a#6 

CL (PC)+ ::CLEAR CHAIN INDICATOR 
001662 000000 CHNFLG: . 0 ::CHAIN MODE INLICATOR 
331/0 = CHAIN/NOT CHAIN MODE 

001664 622737 003154 000042 on ;;BRANCH IF LOADED VIA ACT11 CHAIN MODE 


000042 a#42 :;BRANCH IF IN DUMP MODE 
if 

000176 000550 : #SWREG, SWR >: INVOKE SOFTWARE SWR 

100000 176630 #100000 ,aswR :;WITH HALT ON ERROR SET 


001662 CHNFLG :;SET CHNFLG = CHAIN MODE 
000137 002556 TSCD ::GO TO CHAIN ADDRESS 


122737 000006 000041 —_— BRANCH IF LOADED VIA TMDP (DUMP MODE) 
016675 #MSG69,R4 sADVISE USER TO REMOVE TMDP FROM UUT 


PRINT TITLE 
014470 M :D0 NOT PRINT TITLE ON RESTART 


REQUEST REGISTER ADDRESS 


PRINT CURRENT ADDRESS 

SET ADDRESS SAVE LOC 
#7,R1 SET SIZE OF RESPONSE 
#176400,R2 SET UPPER LIMIT 
#172300,R3 ;SET LOWER LIMIT 
PC,TIR :GO GET RESPONSE 


#MSGS,R4 
;REQUEST VECTOR 


PRINT CURRENT VECTOR 
SET ADDRESS SAVE LOC 
SET SIZE OF RESPONSE 
SET UPPER LIMIT 
SET LOWER LIMIT 
3GO0 GET RESPONSE 
VECT,RO :GET VECTOR 
#ATINT, (RO)+ ;LOAD INTERRUPT ADDRESS IN VECTOR 
002106 012710 000340 #340, (RO) LOAD PRIORITY 
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002112 013700 000572 REGS ,RO GET START OF REGS 
000017 17,R1 ;SET NUMBER OF REGS 
000510 GET START OF TABLE 
;BUILD TABLE 
000002 2,R0 ;BUMP ADDRESS 
1 SEE IF DONE 
7 1F NOT: BR 
000600 
000054 
CLEAR FLAGS + COUNTERS 


ST1 

000001 000722 SET ADDRESS TEST FLAG 
TSRH :GO DO INITIAL ADDRESS TEST PASS 
#MSG10,R4 


PC,TTOUT REQUEST DRIVE NUMBER 
DRVN,R3 GET CURRENT DRIVE # 
PC,OCTP zAND TYPE IT 
#ORVN,RS SET ADDRESS OF DRIVE NUMBER SAVE 
#2,R1 SET SIZE OF RESPONSE 
#7,R2 ;SET UPPER LIMIT 
#0,R3 SET LOWER LIMIT 
PC,TTR :GO GET RESPONSE 

176256 #40,aCs SET INIT 

176250 DRVN,aCS SET DRIVE NUMBER 
acl sACCESS DRIVE 

010000 176236 +) cama ;SEE IF NED 


: IF NOT: BR 
015657 #MSG41,R4 
013442 PRINT NOT AVAIL 
REDO DRIVE REQUEST 
014745 


REQUEST SLAVE NUMBER 

;GET CURRENT SLAVE # 

:AND TYPE IT 

SET ADDRESS OF SLAVE SAVE 
SET SIZE OF RESPONSE 

7SET UPPER LIMIT 

:SET LOWER LIMIT 

:GO GET RESPONSE 

; INIT 


;SET DRIVE NUMBER 
;LOAD SLAVE NUMBER 
002000 SEE IF SLAVE PRESENT 
T F SO: BR 


$T3 : 
015700 #hSG42,R4 
013442 PC, TTOUT ;PRINT NON-EXIST SLAVE 
ST2 sREDO SLAVE REQUEST 
015721 : #MSG43,R4 


;PRINT SERIAL NUMBER TAG 


:PRINT SERIAL NUMBER 
SET RH INDICATOR = RH11 
SAVE ERROR TRAP VECTORS 
;AND PRIORITY 
002442 012737 002466 000004 #1$,a04 ;SET TIME OUT TRAP TO 1$ BELOW 
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002450 005037 000006 a#6 
0 @BAE REFERENCE BAE REGISTER 
000604 #1,RH17F ;SET FLAG = RH70 
1$: (SP)+,a#6 RESTORE ERROR TRAP 
(SP)+,a#4 
#ASG62,R4 GET REQUEST 
REQUEST RH11 ONLY RESPONSE 
;GET CURRENT FLAG SETTING 
;AND TYPE IT 
SET FLAG ADDRESS 
SET SIZE OF RESPONSE 
;SET UPPER LIMIT 
;SET LOWER LIMIT 
002536 004737 013120 3GO0 GET RESPONSE 


002542 012706 000500 : ;SET STACK PTR 
002546 005037 000730 CLEAR PASS COUNTER 
002552 004737 014222 PC,GTSWR GET SWITCHES 
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002556 052777 000100 


177740 
001662 
177777 
177777 
000040 
000612 
000010 
000612 
175630 
010000 
000614 
000612 
000006 


000614 
000010 


000614 
002000 


000752 


175666 
002000 


000704 


175502 
177740 


000001 
001110 


000752 
003102 060037 000706 
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STEST SCHEDULARttreteeeee 


175766 TSCD: #100,aTKS 
C STFLG 
@SwWR,RO 
#177740,R0 
CD 


000612 
000614 
175666 


000612 


175644 
aci 
175632 #10000,aCS 
B 1$ 
NXTSLV: SLVN 
B 1$ 
DRVN 


1$ 
000041 > ata 


SLVN 
000614 : #10,SLVN 

NXTDRV 
175604 SLVN,a@TC 
175572 #2000 ,aDT 

NXTSLV 


000706 : #TSTTBL,LTADD 
: #4,LTADD 
LTADD,ITRLP 
000676 2,1T 


@LTADD RO 

(RO) 
175520 : #2000, aSWR 

TSCD3 

STFLG 

TSCDO 

@SWR,RO 
#177740,R0 
TSCD 
000704 


RO 
000706 #TSTTBL LTADD 
RO,LTADD 


SET KEYBOARD IE BIT 
CLEAR SINGLE TEST FLAG 


:GO SELECT SINGLE TEST 
;;BRANCH IF NOT IN CHAIN MODE 


sz INITIALIZE DRIVE # 

sc: INITIALIZE SLAVE # 

3: INIT CONTROLLER 

s:STEP DRIVE # 

ssEXIT IF ALL DRIVES TESTED 
32FOR AVAILABILITY 

3:LOAD DRIVE # 

7 zACCESS DRIVE 

3:BRANCH IF DRIVE NON EXISTANT 
37; (NED = 1) 

3:STEP SLAVE # AND BRANCH 
3: 1F NOT SLAVE 0 

;:BRANCH IF NOT DRIVE # 0 


:;BRANCH IF NOT TMDP 


::STEP TO SLAVE # 1 

;:BRANCH IF ALL SLAVES TESTED 
3:FOR AVAILABILITY 

3;LOAD SLAVE UNIT # 

;;BRANCH IF SLAVE NOT 

> PRESENT (SPR = 0) 


SET ITERATION ADDRESS 


CLEAR PRINT HEADER FLAG 
;SET POINTER TO TEST 

:GO TO TEST 

SEE IF HALT ON TEST 

IF NOT: BR 

SE IF SINGLE TEST 
IF NOT: BR 


BRANCH IF ALL TESTS SELECTED 
SET SINGLE TEST FLAG 

SEE IF EXCEEDED TESTS 

:1F SO: BR 

SET TABLE MODIFIER 


SET TEST POINTER 


SEQ 0023 
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003106 000726 B TSCO1 
0 001662 : CHNFLG BRANCH IF IN CHAIN MODE 
B NXTSLV 
014661 : #MSG6,R4 
013442 J PC, TTOUT PRINT END OF PASS 
000730 PCNTR,RS 
013572 + ee PRINT PASS NUMBER 


RO 


1$ 
000042 a#42,R0 ;GET ACT11 RETURN ADDRESS 
HERE BRANCH IF NOT ACT11 


R 
SENDAD: PC, (RO) 
N 


HERE: 
001662 T CHNFLG ;BRANCH IF IN CHAIN MODE 


TENDX 
010000 175346 #10000, aSWR ;SEE IF HALT ON PASS 
TENDX :1F NOT: BR 


H 
000730 : PCNTR ;BUMP PASS COUNTER 
003212 000137 002556 J TSCD sRESTART 
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sRH ADDRESSING TESTetteereere 


003216 012737 016771 000610 : #MSFT1,EMADDR ;SET HEADER 

013004 175342 #TRAP,@BTRP :SET TRAP HANDLER ADDRESS 

000340 175336 #340,aBTRP2 

000016 #16,R0 SET NUMBER OF REGISTERS 

000510 GET FIRST ADDRESS (CS1) 
REFERENCE REGISTER 
:1F ADDRESS IS BAD, BUS TRAP WILL OCCUR 
SEE IF DONE ALL 


:1F SO: BR 

000002 sBUMP ADDRESS POINTER 
; CONTINUE 

000006 175300 RESET TRAP CATCHER 

000722 RHTF SEE IF INITIAL ADDRESS TEST PASS 
:1F NOT: BR 

000722 CLEAR FLAG 

002170 ; RETURN 


003312 000137 003022 : [RETURN TO SCHEDULAR 
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003316 
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012737 


017016 
177777 
012620 
000512 


015205 
003330 
003504 
000514 


000001 


015213 


000532 


004000 


015221 
003430 
003504 


020000 
000606 
000610 


013442 
013560 
015161 
013442 


013560 
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000610 


000650 
000674 


000650 
000674 


000650 
000674 


175034 


000606 


FT2: 
FT2A: 


FT2B: 


FT2C: 


FT2D: 


FI2E: 


FT2ER: 


FT2ERA: 


13-JUN-78 


N 2 
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sRH REGISTER BITS READ/WRITEtteterenee 


#MSFT2,EMADDR 
#-1,R1 


PC, INIT1 
Wd 


FT 
#MSG25,ERADD 
#FT2A,SCOLP 
i ee 


FT2 
#SG26,ERADD 
#FT2B,SCOLP 
PC.FI2ER 


#4000,R3 
R3 


FT2D 
Re, (RO) 
FT2E 


#mS627, ERADD 
#FT2C,SCOLP 
PC,FTER 


FT2Xx 
R1 
FT2A 


#20000 ,aSwR 
FT2ERB 
HDRFL 
FT2ERA 
EMADDR ,R4 
PC, TTOUT 
#1, HORFL 


PC,OCTPE 


SET TEST HEADER 

:SET ALL ONES PATTERN 

:GO INIT 

GET ADDRESS OF WORD COUNT 
SET EXPT REGISTER BIT PATTERN 


;LOAD PATTERN 

SEE IF EXPT=RCVD 
:1F SO: BR 

SET CODE 


:SET SCOPE 
:GO DO ERROR 
GET ADDRESS OF BUS ADDRESS 


:SET EXPT PATTERN 


;LOAD PATTERN 

SEE IF EXPT=RCVD 
7 1F SO:BR 

SET ERROR CODE 
SET SCOPE ADDRESS 


:G0 DO ERROR 
:GET ADDRESS OF DATA BUFFER 


;LOAD PATTERN 
; DELAY 


7 SEE If EXPT=RCVD 
:1F SO: BR 


:SET ERROR CODE 
SET SCOPE ADDRESS 


:GO DO ERROR 
:SEE IF DONE RESET 
;1F SO: BR 


il $0: 
;SET ZERO PATTERN 
D0 ZERO BITS 


SEE IF ayy ERROR 


:1F NOT: B 
SEE ID DONE HEADER 
:1F SO: BR 


D0 HEADER 
SET FLAG 


PRINT ERROR CODE 
:PRINT EXPT TAG 
PRINT EXPT 
PRINT RCVD TAG 
PRINT RCVD 


SEQ 0026 
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005777 174736 


012512 


012546 
000137 003022 
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FTZERB: TST 
BPL 
FT2ERC: 


FT2X: 


aSwR SEE IF HALT ON ERROR 
FT2ERC ;1F NOT: BR 


PC SCOPE :GO SEE IF SCOPE ON ERROR 
PC ;1F NO SCOPE: CONTINUE TEST 


PC, ITER :GO SEE IF ITERATIONS 
TSCD2 RETURN TO SCHEDULAR 


SEQ 0027 
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SRH INITIALIZE TESTeeeeeeeene 


003640 012737 017053 000610 : #MSFT3,EMADDR ;SET TEST HEADER 
003640 000674 #FT3,SCOLP 
012620 PC, INIT :GO INIT 
020000 174632 #20000,aCS :FORCE UPE =1 


012620 PC, INIT1 GO INIT 
174610 : aci 7 SEE . IS RESET 


FI3A IF SO: B 
015257 000650 #ASG29,ERADD SET ERROR CODE 
003774 J PC, FT3ER :GO DO ERROR 
040000 174566 #40000,aC1 SEE IF TRE IS RESET 
B F138 :1F SO: BR 

015306 000650 #MSG30,ERADD SET ERROR CODE. 

:GO DO ERROR 

:GET CS2 
000307 B MARK IR/OR 

1 SEE IF RESET 


FT3X :1F SO: BR 
015336 000650 #4SG31,ERADD SET ERROR CODE 
J PC,FT3ER :GO DO ERROR 
FT3X: PC, ITER :GO SEE IF ITERATION 
003770 000137 003022 TSCD2 ;RETURN TO SCHESULAR 


sERROR REPORT SUBROUTINE 
FT3ER: NOP 
020000 174544 #20000 ,aSWR ;SEE IF PRINT ERROR 
2$ IF NOT: BR 
000606 Nt :SEE 1F DONE HEADER 


:1F SO: BR 
000610 EMADDR ,R4 
PRINT HEADER 


003774 000240 


PRINT ERROR CODE 
174504 : SEE IF HALT ON ERROR 
:1F NOT: BR 


EE IF SCOPE 


012512 PC, SCOPE :G0 $ 
004056 000207 PC [IF NOT: BR 
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1127 
;RH11 SILO TEST 1: EPMTY SILO READtteeeeener 


_ 
_ 
~m 
oo 


004060 005737 000604 
s1F RH70: BR 


5x 
017105 000610 SET TEST TEST HEADER 
000040 174416 40,acs : INIT 
174424 ;READ DB 
174406 acs SEE IF OLT IS SET 

;IF NOT: BR 


174370 ; SC IS SET 
ERA ; T: BR 

040000 174360 : TRE IS SET 
SERB ; : BR 


B : 
012546 FT4X: ; IF ITERATION 
003022 J Cd2 ; TO SCHEDULAR 
015366 000650 FI4ER: —— SET ERROR CODE 


B 
015404 000650 FI4ERA: : t+ jaca SET ERROR CODE 


FT4ERC 
015421 000650 toring #MSG34,ERADD SET ERROR CODE. 
004060 000674 #FT4,SCOLP SET SCOPE ADDRESS 
003774 PC,FTSER :GO PRINT ERROR 
004204 000752 FT4X 


WANA 


Ww Nm 
SSODNAANRWN SH ODWAOURUN HOD 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


et td ad ot 


1 LE ae ae ae ae ae a oF oF oF al” 
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= 
ww 
~m 


sRH11 SILO TEST 2: IR/OR CHECKtteeeeenee 


004206 005737 000604 : nt bag +t a" 
017135 000610 #ASFTS,EMADDR ;SET TEST HEADER 
004230 000674 #FTSA,SCOLP SET SCOPE ADDRESS 
012620 : PC, INIT :GO INIT 
000100 174256 #100,aCS ;SEE IF IR IS SET 
158 :IF SO: BR 


F 
015437 000650 #ASG35,ERADD SET ERROR CODE 
003774 PC, FT3ER :GO DO ERROR 
000200 174234 : eo 41 ’ . IS RESET 


FT5C S 
015464 000650 #ASG36,ERADD SET ERROR CODE 
003774 PC,FT :GO DO ERROR 
000000 174224 : :LOAD ZERO INTO SILO 
000200 174204 SEE THAT OR RESET 
FTSD :1F IT DOES: BR 
015513 000650 . SET ERROR CODE 
003774 P :GO DO ERROR 
177777 174174 : ;LOAD SILO WITH -1 
004000 
000200 174150 : sSEE IF OR IS SET 
5 :1F SO: BR 


FTSE AWAIT OR 
015513 000650 #™SG37,ERADD SET ERROR CODE 
003774 PC,FTSER GO DO ERROR 
012546 : PC, ITER :GO SEE IF ITERATION 
004374 000137 003022 TSCD2 RETURN TO SCHEDULAR 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


ee a a ad ot ot ot Ls td 


00 69 08 SIN SN NS NN NN SR AAAAAAAAAMNMNMNYI 
NMS OONAUVUSWN $0 OONAUEWN (OO ONOUEW 
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zRH11 SILO TEST 3: SILO DATA TESTeteeeeenee 
004400 005737 000604 : RH17F 
IF RH70: BR 


FT6X 
017165 000610 WASFT6,EMADDR ;SET TEST HEADER 
004422 000674 #FT6A,SCOLP SET SCOPE ADDRESS 
012620 : PC, INITI :GO INIT 

RO PRESET DATA 
174076 : RO,a0B LOAD SILO 

RO ;BUMP DATA 
000102 #102,R0 sSEE IF FILLED ALL 

FT6 IF NOT: BR 


B N 
000100 174046 #100,aCS SEE IF IR IS RESET. 
FT6C :1F SO: BR 


015624 000650 #MSG40,ERADD SET ERROR CODE 
003774 PC, FT3ER :GO DO ERROR 
000200 174024 : #200,aCS tf os If = IS SET 


FT6D SO: B 
015552 000650 #MSG38,ERADD 7 SET ERROR CODE 
003774 PC,FT :GO DO ERROR 
: RO :PRESET DATA 
174014 : READ SILO 
SEE IF EXPT=RCVD 
IF NOT: BR 
0 BUMP DATA 
000102 SEE IF DONE ALL 
B T6E :1F NOT: BR 
012546 : :GO SEE IF ITERATION 
004536 000137 003022 sRETURN TO SCHEDULAR 


004542 000240 


ee ed ed ed 
ee at at at ad 


FT6DE 
000606 NORFL : SEE TF DONE HEADER 
EMADDR ,R1 


F : 
020000 173776 B giteey aSwWR tf wot IF — ERROR 


;PRINT HEADER 
7 SET 


I FLAG 
FTO6DEA: #MSG39,R4 
J PC, TTOUT PRINT SILO READ ERROR 
#MSG22,R4 
013442 PC, TTOUT PRINT EXPT TAG 


RO,R3 
013572 PC,OCTP :PRINT EXPT 
015161 #MSG23,R4 
013442 PRINT RCVD TAG 


R1,R3 
013572 JS PRINT RCVD 
173704 FT6DEB: ;SEE IF HALT ON ERROR 
B :1F NOT: BR 


HALT 
004650 000207 FT6DEX: RTS RETURN TO TEST 
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7RH11 SILO TEST 4: SILO OVERFLOWttteexeeee 
005737 000604 ; RH17F 
;I1F RH70: BR 


FT7X 
017215 000610 WASFT7,EMADDR ;SET TEST HEADER 
000674 #FT7,SCOLP :SET SCOPE ADDRESS 
M SET SIZE OF SILO +1 
173622 : LOAD SILO 
SEE IF _DONE 
:1F NOT: BR 
173600 sSEE IF ‘DLT IS SET 
B :1F NOT: BR 
012546 : :G0 SEE IF ITERATION 
003022 J TSCD2 ;RETURN TO SCHEDULAR 
015366 000650 : #MSG32,ERADD SET ERROR CODE 
003774 PC, FT3SER :GO DO ERROR 
004744 000766 FT?7Xx 
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005100 
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005737 


000761 


000604 


017245 
004746 
000040 
000004 
173524 


000040 
177777 
173500 
173474 
173456 


012546 
00726 


003110 
003022 
015366 
003774 
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000610 
000674 
173522 


173500 
173504 


000650 


FT10: 


FTI0A: 


FT10X: 


FT10XX: 
FTIOER: 


;RH11 SILO TEST 5: SILO 


RH17F 

FT10X 
#ASFT10,EMADOR 
#FT10,SCOLP 
#40,aCS 


TSCD2 
#MSG32,ERADD 
PC,FTSER 
FT10Xx 


33 


RESETeereternee 


;1F RH70: BR 

;SET TEST HEADER 
SET SCOPE ADDRESS 
INITIALIZE 

:SET NUMBER OF SILO WRITER 
WRITE SILO 

SEE IF DONE 

7 IF NOT: BR 

: INITIALIZE 

WRITE SILO 

sREAD SILO 1 

sREAD SILO 2 

SEE IF DLT IS SET 
:1F NOT: BR 

:GO SEE IF ITERATION 
;SEE IF RH11 ONLY 
:1F NOT: BR 

sELSE GO TO END 
RETURN TO SCHEDULAR 
;SET ERROR CODE 

:GO DO ERROR 


SEQ 0033 


i, 
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sNOP TEST#tet* 


005102 000240 : 
000674 M #FT11,SCOLP ; SCOPE ADDRESS 
PC, INIT1 
000716 #300 ,UDES : TC= ALL NRZ,NORM,ODD 
#-1,FCNT ; FC= ALL OVER 
#-1,WCNT ; WC= ALL OVER 
#~1,BADDOR ; BA= ALL OVER 
#1,RDYOX ; DELAY 
#1,O0PDYX ; OP DELAY 
000710 #1,FUN :SET NOP FUNCTIONS CODE 
071546 PC,EXEC :GO EXECUTE COMMAND 


017276 000610 #MSFT11,EMADDR 

011776 PC,ERCHK :GO CHECK REGISTER 

012546 PC, ITER :GO SEE IF ITERATIONS 
005214 000137 003022 TSCD2 RETURN TO SCHEDULAR 
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SREWIND TESTexee% 


005220 000240 
005220 000674 #FT12,SCOLP 
PC, INIT1 :GO INITIALIZE 

173300 #1700,aTC SET TO NRZ,NORMAL 
000620 SET FC=20 
000622 sSET WC=10 
000616 ;SET BA=WRITE BUFFER 
000710 #7,FUN SET REWIND OP CODE 

011546 PC,EXEC :GO EXECUTE COMMAND 


N 
020000 173214 #20000,aDS 
B FT12A 


AWAIT PIP 
017316 000610 #MSFT12,EMADDR 


011776 PC,ERCHK :GO CHECK FOR ERROR 
012546 PC, ITER :GO SEE IF ITERATION 
005326 000137 003022 TSCD2 RETURN TO SCHEDULAR 
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005640 
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000240 
012737 


000137 


000624 
000100 


000624 
000200 


000624 
002000 


002300 
000100 


003022 
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000636 


000610 
000720 


000716 


000620 
000622 
000616 
000710 
000626 


000624 


000626 


000616 
000710 
000626 
000624 


000716 


000716 
000624 


FT13: 


FT13A: 


FT13B: 


FTI3C: 


FT13D: 


FT13X: 
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sWRITE/READ TESTteeee 


#1,RDYDX 

ay gp ote 

#100, RCN 
ansFits. “EMDOR 
7° +n 


11700, UDES 
PC ,RWND 
#-200.,F CNT 
#-100,WCNT 
#WDATA,BADDR 
#61,FUN 
#ASG12,ERRP 
XEC 


FT13B 

#100, RCNT 
#RDATA,BADOR 
#200,BADDR 


#77,FUN 
#4SG13,ERRP 


FT13C 
#200,BADDR 
#71,FUN 
#MSG14,ERRP 
#100,RCNT 
PC EXEC 
PC,ERCHK 
RCNT 

FT130 
#2000 ,UDES 
FT13X 
#2300,UDES 
#100,RCNT 


FTI3A 
TSCD2 


SET RECORD COUNT 
SET TEST HEADER 


SET UP ALL ONES DATA PATTERN 
:SET TO 800 BPI NORMAL 


:GO REWIND 
SE 


T FC 


SET WC 

SET BA 

SET WRITE OP-CODE 
:GO EXECUTE COMMAND 


:NO SCOPE LOOP 
:GO CHECK ERROR 


;SET BA 
;SET READ REVERSE OP-CPDE 


SEE IF DONE ALL 
:1F NOT: BR 
SET RECORD COUNT 


:GO EXECUTE COMMAND 
:GO CHECK ERROR 
;SEE IF READ ALL 
:1F NOT:BR 


:SET BA 
SET READ FORWARD OP-CODE 


SET RECORD COUNT 
:GO EXECUTE COMMAND 
:GO CHECK ERRORS 


SEE IF DONE ALL 
:1F NOT:BR 

: SEE If DONE PE 
;1F SO: BR 

: SET PE MODE 


;RESET RECORD COUNT 
:GO DO NEXT DENSITY 
RETURN TO SCHEDULAR 


SEQ 0036 


L 3 
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sSPACE TESTeeee% 


005644 000240 FT14: 

017370 000610 WASFT14,EMADDR ;SET TEST HEADER 

000716 M #1700,UDES ;SET NRZ,NORMAL 
FT14A1: PC ,RWND :GO INITIALIZE 
000624 #100, RCNT SET NUMBER OF RECORDER 
020112 #-1,WDATA SET DATA PATTERN 
000620 #-100,F CNT PRESET FRAME CNT 
000622 M #-40,WCNT PRESET WORD CNT 
: PC, INIT1 :GO REWIND 

000640 M #1000 ,OPDYX 


#40000 ,RDYDX 
#61,FUN SET WRITE OP-CODE 
#102300,STMSK ;MASK DATA RELATED ERRORS 
172540 #10,aCs : INHIBIT BUS ADDRESS INCREMENT 
PC ,EXEC :GO EXECUTE COMMAND 
000626 #MSG46,ERRP SET ERROR CODE 
:GO CHECK ERRORS 
000712 SEE IF ERROR 
:1F NOT: BR 
006470 J sELSE EXIT 
000620 FT14A2: BUMP FC 
000001 000620 BI +e 7 ee BUMP WC 
000001 000622 S ;BUMP WC 
000624 FT14A3: SEE IF DONE ALL 
sWRITE ALL RECORDS 
000100 000632 PRESET RECORD POSITION 
000634 
000642 M #-77, SCNT SET SPACE AMOUNT 
000710 3 #33, FUN SET OP-CODE SPACE REVERSE 
J PC,EXEC :GO EXECUTE COMMAND 
000626 #SG48 ,ERRP ;SET ERROR CODE 
PC ,ERCHK :GO CHECK ERRORS 
000712 SERFL SEE IF ERROR 


FT14X :1F SO: BR 
006210 PC,FTI4RR :GO READ REVERSE + CHECK DATA 


000031 000710 #31,FUN SET SPACE + ee OP-CODE 
000642 SCNT SET SPACE AMO 

FT14X :1F DONE: BR 
011546 PC ,EXEC :GO EXECUTE COMMAND 
016067 000626 #MSG47,ERRP 
011776 PC ,ERCHK : 
000712 SERFL SEE Md ERROR FLAG 


FT14Xx IF BR 
006252 PC. FTIGRE :60 READ FORWARD FOR POSITION CHECK 
000642 4 pg vee AMOUNT 


0 
000632 ;BUMP DATA EXPT 
000634 RFD BUMP DATA EXPT 


B 
FTIGRR: 
012737 021624 000616 M #RDATA,BADDR :SET BA 





nm 3 
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012737 000077 000710 #77,FUN SET READ REVERSE OP-CODE 
011546 PC,EXEC :GO EXECUTE COMMAND 


000632 
172252 SEE IF CORRECT RECORD 
006300 coe FTI4EC :GO CLEAR RH11 ERROR BIT 
000071 000710 “4 #71, FUN :SET READ FORWARD OP-CODE 
011546 [GO EXECUTE COMMAND 
000634 
172220 :SEE IF CORRECT RECORD 

3 NOT: BR 


B 
012620 FTIGEC: : i -INITI CLEAR RH 


; RETURN 
FTI4RER: 
020000 172232 BI #20000, aSWR ;SEE IF PRINT INHIBITED 
FT14R3 F SO: BR 


017370 #ASFT14,R4 
013442 PC, TTOUT sPRINT HEADER 
014703 #MSG9,R4 
013442 PC, TTOUT sPRINT ERROR TYPE 
015136 #ASG20,R4 ;SET NRZ TAG POINTER 
002000 000716 #2000 ,UDES ;SEE IF PE 
FT14R0 sIF NOT: BR 
015144 #hSG21,R4 ELSE SET PE TAG POINTER 
013442 FT14R0: PC, TTOUT sPRINT TAG 
000002 000710 #2,FUN : SEE IF READ REVERSE 
FTIGR1 :1F SO: BR 
015116 #hSG17,R4 
FT14R2 3GO PRINT 
015076 FT14R1: #ASG16,R4 
013442 FT14R2: PC, TTOUT sPRINT FRWD/REV 
015151 #ASG22,R4 
013442 TTOUT sPRINT EXPT TAG 


R5,R3 
177700 MASK RECORD NUMBER 
PRINT EXPT RECORD NUMBER 


PRINT RCVD TAG 


MASK RECORD NUMBER 

PRINT ACTUAL RECORD NUMBER 
172064 FT14R3: SEE IF HALT ON ERROR 

IF NOT: BR 


HA 
00200° 000716 FT14x: #2000 ,UDES SEE IF DONE PE 
B FT14XXx :1F SO: BR 
002300 000716 #2300,UDES SET TO PE 


005662 J FTI4A1 :00 IN PE 
000137 003022 FTI4XX: TSCD2 RETURN TO SCHEDULAR 
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CZTUQA.P11 


006516 


006712 


000240 


000137 


000660 


000712 
000624 


011700 


011546 


016503 


003022 


MACY11 30(1046) 


000636 
000640 
000610 


000616 
000716 
000710 
000624 


000626 


000622 
000710 
000636 


000626 
000660 


N 3 
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ERASE TESTetere 


STMSK 
#100 ,RDYDX 
#10, 0PDYX 


D 
#MSFT15 ,EMADDR 


PC ,RWND 
#RDATA,BADDR 
#1700, UDES 
#25,FUN 
#400,RCNT 

PC EXEC 
#ASG46,ERRP 


#-200 ,WCNT 
#71,FUN 
#40, RDYDX 
PC EXEC 


#MSG60,ERRP 
#20000, STMSK 
PC, ,ERCHK 
TSCD2 


;SET TEST HEADER 
sREWIND 

3SET BA 

7SET NRZ, NORMAL 
3SET ERASE OP-CODE 
:SET TO ERASE 256 TIMES 
3GO EXECUTE COMMAND 
;SET ERROR CODE 

3GO CHECK ERRORS 
;SEE IF ANY ERRORS 
:1F SO EXIT 

;SEE IF DONE ERASING 
71F NOT: BR 

;REWIND 


:SET WC 
;SET READ FORWARD OP-CODE 
SET DELAY 

:GO EXECUTE COMMAND 

SET ERROR CODE 


;GO CHECK ERRORS 
RETURN TO SCHEDULAR 


SEQ 0039 
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CZTUQA.P11 


007140 


000240 


000137 


000001 


002000 
002300 


012546 
003022 


MACY11 30(1046) 


000636 
000640 
000610 
000716 
000620 
000622 
000710 
000660 
000626 
000710 
000660 
000626 
000710 


000626 


000716 
000716 


FTI6A: 
FT16B: 


13-JUN-78 


#1, RDYOX 
#1000 ,OPDYX 


#ASFT16,EMADOR 


#1700,UDES 
PC,,RWND 
#-20,F CNT 
#-10,WCNT 
#27,FUN 

PC EXEC 
#1000, STMSK 
#ASG12,ERRP 
PC,ERCHK 
PC, TACHK 
#77,FUN 

PC EXEC 
#1000, STMSK 
#MSG13,ERRP 
PC,ERCHK 
PC, TMCHK 
#71,FUN 
PC,EXEC 
#MSG14,ERRP 
PC,ERCHK 
PC, TMCHK 
#2000 ,UDES 
FT16X 
#2300, UDES 
FT16A 

PC, ITER 
TSCD2 


B 4 
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; TAPE MARK WRITE/READ TESTeeeee 


;SET HEADER 

7SET TO NRZ,NORMAL ,ODD 

; INIT AND REWIND SLAVE 
3FC=20 

sWC=10 

sSET WRITE TAPE MARK OP-CODE 
3GO EXECUTE COMMAND 

sSET FOR FCE MASK 

;SET ERROR CODE 

3GO CHECK ERROR 

:GO SEE IF TM SET 

;SET USED REVERSE OP-CODE 
3GO EXECUTE COMMAND 

sSET FCE ERROR MASK 

;SET ERROR CODE 

3GO CHECK ERRORS 

3GO SEE IF TM SET 

sSET READ FORWARD OP-CODE 
3;GO EXECUTE COMMAND 

;SET ERROR CODE 

3;TO CHECK ERRORS 

:GO SEE IF TM SET 

;SEE IF DONE PE 

; IF : BR 


e SO: 

;SET PE, NORMAL 

300 IN PE 

300 ITERATIONS 
;RETURN TO SCHEDULAR 





SEQ 0040 
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; TAPE MARK SPACE TESTettereeeee 


007144 005037 000624 : RCNT 

000610 M WMSFTI7,EMADDR ;SET HEADER 

000716 #1700,UDES SET TO NRZ 
: REWIND TAPE 

000710 


000636 #40000, RDYDX SET DRY DELAY 
000640 #40000 ,OPDYX :SET OP DELAY 
PC, EXEC :GO WRITE TM 
000660 #102300,STMSK ;MASK DATA RELATED ERRORS 
000626 #MSG15,ERRP ;SET ERROR TYPE 
:GO CHECK ERROR 
000712 SEE IF ERROR 
:IF SO: BR 
012340 PC, TMCHK :GO SEE IF TM SET 


000100 000624 #100,RCNT SEE IF DONE PATTERN 
FT17D :IF SO: BR 

000020 000624 #20,RCNT ADD 20 TO RECORD COUNT 

000624 000652 RCNT, TEMP1 SAVE RECORD COUNT 

177600 000622 #-200,WCNT sWC=128 

177400 000620 #-400,F CNT sFC=256 

020112 000616 #WDATA,BADDR sBA=WRITE BUFFER 

000061 000710 M #61,FUN :SET WRITE OP CODE 


011546 PC,EXEC 3GO WRITE 
000626 #MSG12,ERRP sSET ERROR CODE 
000660 #102300,STMSK ;MASK DATA RELATED ERRORS 
PC,ERCHK 3GO CHECK ERROR 
000712 SERFL 3 SEE 4 ERROR 
FT17X ;IF SO: BR 
000652 TEMP1 3 SEE rf _DONE ALL 
FT17C ;1F NOT: BR 
FT17B ELSE 60 DO TM 
FT17D: 


000033 000710 #33,FUN SET SPACE REVERSE 
000626 M #MSG16,ERRP SET ERROR CODE 
000642 FT17D1: #-200, SCNT SET TO 200 RECORDS 
000624 M #5,RCNT SET NUMBER OF OPS TO DO 
FTI7E: PC, INIT1 :GO INIT 
J PC,EXEC GO SPACE 
000660 #1000, STMSK SET ERROR MASK 
GO CHECK ERROR 
000712 SEE IF ERROR 


:1F SO: BR 
012340 :GO0 SEE IF TM SET 
000624 T at wets — SPACES 
000031 000710 fr 4; eo > FORWARD 


FT17 
015116 000626 #MSG17,ERRP SET ERROR CODE 
007510 012737 000031 000710 #31,FUN ;SET TO SPACE FORWARD 
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CZTUQA.P11 13-JUN-78 10:34 SEQ 0042 
1588 007516 000736 BR FT1701 300 FORWARD 
1589 007520 032737 002000 000716 FTI7F: BIT #2000 ,UDES SEE IF DONE PE 
1590 007526 001005 BNE FT17X :IF SO: BR 
1591 007530 012737 002300 000716 MOV #2300,UDES :SET TO PE 
1592 007536 000137 007164 JMP FTI7A ;GO P 


G0 PE 
1593 907542 000137 003022 FT17X: JMP TSCD2 sRETURN TO SCHEDULAR 


E 4 
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SWRITE CHECK TESTeeeerereee 


007546 000240 FT20: 
000610 M #MSFT20,EMADDR ;SET HEADER 
000716 M #1700,UDES SET UNIT DESCRIPTION 
FT20A: : INIT AND REWIND SLAVE 
000720 mM 


U 3GO SET PATTERN 3 

000616 :SET BA 
000620 #-400,F CNT SET FC 
000622 #-200,WCNT SET WC 
000710 #61,FUN :SET WRITE OP CODE 

PC,EXEC :GO WRITE RECORD 
000626 #MSG46,ERRP SET ERROR CODE 

:GO CHECK ERROR 
000712 SEE IF ERORR 
20x :I1F SO: BR 
015076 000626 #MSG16,ERRP SET REVERSE ERROR TAG 

000710 #57,FUN SET REVERSE WRITE CHECK OP-CODE 
000616 #376, BADOR :SET BA FOR REVERSE CHECK 

PC,EXEC :GO DO REVERSE CHECK 

J PC,ERCHK :GO CHECK ERROR 

000626 #MSG17,ERRP SET FORWARD TAG 
000710 M #51,FUN SET FORWARD CHECK OP CODE 
000616 #376. BADOR ;SET BA FOR FORWARD CHECK 

PC EXEC :GO DO FORWARD CHECK 

PC,ERCHK :GO CHECK ERROR 


J 
002000 000716 #2000,UDES SEE IF DONE PE 
FT20x :1F SO: BR 
002300 000716 #2300, UDES sELSE SET PE 
B FT20A :D0 IN PE 
012546 PC, ITER ;D0 ITERATIONS 
007766 000137 003022 TSCD2 RETURN TO SCHEDULAR 
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ERASE HEAD TEST#tere 


007772 012737 017554 000610 FT21 WASFT21,EMADDR ;SET TEST HEADER 
FT21A: PC,RWND :GO REWIND 


000720 
:GO SET PATTERN 3 
000616 ;SET BA=WRITE BUFFER 
000620 : SET FC=800(10) 
000622 . SET WC=400(10) 
000716 #1700,UDES SET NRZ, NORMAL 
000710 #61, FUN SET WRITE OP-CODE 
PC, EXEC :GO DO WRITE 1 
000626 #MSG12,ERRP SET ERROR CODE 
:GO CHECK FOR ERROR 
:YES DO WRITE 2 
011776 PC.ERCHK YES CHECK FOR ERROR 


011700 PC ,RWND :GO REWIND 

177160 000620 #-400.,FCNT SET FC=400(10) 

177470 000622 #-200. ,WCNT SET WC=200(10) 

011546 J PC EXEC 7GO REWRITE RECORD 1-WH TO EH 
FT21SCP: 

011700 J PC ,RWND ; REWIND 

021624 000616 #RDATA,BADDR ;SET BA=READ BUFFER 

177160 #-400.,FCNT SET FC=400 

177470 #-200. ,WCNT SET wWC=200 


C00071 000710 #71,FUN :SET READ OP~CODE 
011546 PC,EXEC :GO READ RECORD 1 
015030 000626 #MSG14,ERRP SET ERROR CODE 
011776 PC,ERCHK :GO CHECK FOR ERROR 


000010 170304 #10,aCs ; INHIBIT BA INCREMENT 
000620 #-800.,FCNT SET FC=800(10) 
000622 #-400.,WCNT SET wWC=400(10) 
3GO READ RECORD 2 
001440 170254 ° SEE IF READ RECORD 2 OK 
T21x :1F SO: BR 
001441 170244 ae ;BRANCH IF IN GREY AREA 


001440 170234 1$: aote ae i ERASE HEAD REVERSED 
015736 000650 me SET ERASE HEAD INOPERATIVE ERROR CODE 


B 
015766 000650 FT21B: #¥SG45,ERADD SET ERASE HEAD REVERSED ERROR CODE 
010130 000674 FT21C: #FT21SCP,SCOLP ;SET SCOPE ADDRESS 
00377¢ J PC, FT3ER :GO PRINT ERROR 
012546 FT21X: PC, ITER :GO SEE IF ITERATION 
010320 000137 003022 TSCD2 RETURN TO SCHEDULAR 
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P11 13-JUN-78 10:34 


010324 


010524 


012737 


000137 


017603 


011546 


000007 
000200 


012620 
000010 
011546 


016141 
102300 
011776 
000002 


016167 
010324 
003774 
012546 
003022 


MACY11 30(1046) 


000610 FT22: 


000716 


170070 
170074 


000636 
000626 
000660 


170024 


000650 
000674 


G 4 
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wy g EMADDR 
PC,RWN 

#3, nO 

#1700, UDES 
#WDATA,BADOR 
#-1000,FCNT 
#-400,WCNT 
#61,FUN 
PC,EXEC 

RO 


FT22A 


#7,aC1 
#200,aDS 
FT22B 
PC,INIT1 
#10, RDYDX 
PCEXEC 


#MSG49 ,ERRP 
#102300,STMSK 
PC,ERCHK 
#2,aDS 

FT22x 
#MSG50,ERADD 
#FT22,SCOLP 
PC,FT3ER 

PC, ITER 

TSCD2 


sBUFFERED COMMAND TESTeeeee 
SET TEST HEADER 
;GO REWIND 


7SET NUMBER OF WRITES 
;SET TO NRZ NORMAL 
;SET BA=WRITE BUFFER 
3SET FC=1000 

;SET wWC=400 

sSET WRITE OP-CODE 
3GO DO WRITE 

7SEE IF DONE ALL 

3 IF NOT: BR 


START REWIND 


: INITIALIZE 
:SET LONG READY DELAY 
: ISSUE BUFFERED WRITE 


SET ERROR CODE 
MARK DATA ERROR 
:GO CHECK ERROR 


:SEE IF BOT IS SET 
;1F NOT: BR 
SET ERROR CODE 


:GO DO ERROR 
:GO SEE IF ITERATION 
sRETURN TO SCHEDULAR 


SEQ 0045 
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sREAD-IN PRESET TESTeeeet 


010530 005737 000614 : : rite +t a SELECT=0 
NOT 
017640 000610 #WMSFT23,EMADDR ;SET TEST HEADER 
PC, INIT1 :G0 INIT 
000716 #1700, UDES SET TO NRZ NORMAL 
#WDATA,BADDR ;SET BASWRITE BUFFER 
#~400,FCNT SET FC=400 
#-200,WCNT SET wWC=200 
000710 #61,FUN SET WRITE OP-CODE 
011546 PC,EXEC :GO DO WRITE 


012620 PC,INIT1 : INITIALIZE 
000021 000710 . 7SET READ-IN PRESET OP CODE 
011546 “% :GO DO COMMAND 


000004 #4,R3 :SET MULT 
020000 167654 FT23A: [SEE IF PIP RESET 
FT23B ‘IF SO: BR 


;AWAIT PIP RESET 


; DELAY 
000002 167634 FT23B: 7SEE IF BOT 
FT23C : IF SO: BR 
016225 000650 #MSG51,ERADD ;SET ERROR CODE 


010530 000674 #FT23,SCOLP 
003774 PC, FTSER :GO DO ERROR 
141000 : #141000,R1 SET EXPT TC 
000542 TC,RO :SET TC ADDRESS 
R1, (RO) SEE IF EXPT=RCVD 
FT23X :1F SO: BR 
016261 000650 #ASG52,ERADD SET ERROR CODE 
000674 #FT23,SCOLP :CLEAR SCOPE ADDRESS 
PC,FT2ER :GO DO ERROR 
000137 003022 : TSCO2 RETURN TO SCHEDULAR 
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C2T 


010750 


012737 


000137 


017727 


000712 


011700 
021624 
002300 
000071 
011546 
000040 


016602 


003022 


MACY11 30(1046) 


13-JUN-78 
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sAUTO=DENSITY SELECT TEST: WRITE-NRZ,READ-PE 


000610 FT24: 


000720 
000616 


000710 
000626 


000616 
000716 
000710 
167404 


000650 


#MSFT24,EMADDR 
PC,RWND 


#1,PATRN 

PC ,OSUP 
#WDATA,BADDR 
#-400,F CNT 
#-200,WCNT 
#1700,UDES 
#61,FUN 
PC,EXEC 
#MSG46,ERRP 


2 
#MSG63,ERADD 
PC,FT3ER 
PC, ITER 
TSCD2 


SET ERROR MSG HEADER 
REWIND SLAVE 

;SELECT PATTERN 

:GO DO DATA SETUP 

:SET BUS ADDRESS, 

;FRAME COUNT, 

WORD COUNT, 

:& SLAVE DESC = NRZ NORMAL 
;LOAD OP CODE WRITE Fwd 
:GO EXECUTE COMMAND 

;SET ERROR MSG ADDRESS 

:GO CHECK ERRORS 

;BRANCH IF AN ERROR OCCURRED 


REWIND SLAVE 
;SET BUS ADDRESS FOR READ 
SET SLAVE DESC = — 


SET OP CODE = READ F 
:GO READ RECORD 
:BRANCH ID PES BIT CLEARED 


:GO PROCESS ERROR 
RETURN TO SCHEDULER 


SEQ 0047 
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012737 020005 


000712 
011700 


000040 
016633 


011330 000137 003022 


011334 032777 010000 
001662 
017673 


004000 


010000 


016300 
003774 


000524 
005001 
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000610 FT25: 


000720 
000616 
000620 
000622 
000716 
000710 


000626 


000616 
000716 
000710 
167212 


000650 


167206 


000610 
000720 
000616 
000620 
000622 
000716 
000710 


167042 


167032 
000650 


;AUTO-DENSITY we TEST: WRITE 
MOV FT25,EMADDR 


#-200,WCNT 
#2300, UDES 
#61,FUN 

PC EXEC 
#MSG46,ERRP 
PC ,ERCHK 
SERFL 

FT25Xx 

PC ,RidND 
#RDA“A,BADDR 
#170C ,UDES 


2 
#ASG64 ,ERADD 
PC.FTSER 
PC, ITER 
TSCD2 


48 


~PE ,READ-NRZ 
SET ERROR MESSAGE ADDRESS 
REWIND SLAVE 
:SELECT PATTERN 
:GO DO DATA SETUP 
SET BUS ADDRESS 
;FRAME COUNT, 
;WORD COUNT, 
:& SLAVE DESC = PE,NORMAL 
;LOAD WRITE OP CODE 
:GO EXECUTE WRITE 
SET ERROR MSG HDR 
:GO CHECK FOR ERRORS 
:BRANCH IF ERROR OCURRED 


REWIND SLAVE 

:SET BUS ADDRESS FOR READ 
SET SLAVE DESC = NRZ,NORMAL 
;SET READ FWD OP CODE 

GO EXECUTE 

BRANCH ID PES BIT GOT SET 


:GO PROCESS ERROR 
; ITERATION LOOP 
sRETURN TO SCHEDULER 


: OFF LINE TESTeeeee 


fiery -@SUR 


#WDATA,BADDR 
#-400,F CNT 
#-200,WCNT 
#1700,UDES 
#61,FUN 
PC,EXEC 
#3,aC1 


SCOLP 
#4000,R0 
RO 


1$ 
#10000,a0S 
2$ 
#MSG53,ERADD 
PC, FTSER 
FT26x 

ER,RO 

R1 


:SEE IF IN CONTINUOUS MODE 
:1F SO: BR 
BRANCH IF CHAIN MODE 


:SET TEST HEADER 

sREWIND & SELECT SLAVE 
SELECT PATTERN (ALL 1°S) 
FILL WRITE BUFFER 

;SET WRITE BUFFER BUS ADDRESS 
SET FRAME COUNT 

7SET WORD COUNT 

SET UNIT DESCRIPTION = NRZ 
SET WRITE COMMAND 

:GO WRITE A RECORD 

ISSUE REWIND: OFF LINE COMMAND 
:CLEAR SCOPE LOOP 


: DELAY 
SEE IF MOL IS RESET 
F SO: BR 


:1F SO: B 
SET ERROR CODE 
G0 DO ERROR 


;GET ADDRESS OF ERROR REG 
RESULT SHOULD BE 0 


SEQ 0048 
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011514 020110 


bh +44 000650 


FT26X: a 
011542 000137 003022 FT26XX: JMP 


26 
#4SG67,ERADD 
PC,FTZER 
#MSG54 RG 
PC, TTOUT 
TSCD2 


K 4 
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BRANCH IF ERROR REG = 


;SET ERROR MSG HEADER 
3GO TYPE ERROR 


;PRINT ON LINE REQUEST 
RETURN TO SCHEDULER 


0 


SEQ 0049 
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011546 


011676 


000240 


000207 


000031 
000033 
000642 
000710 
000636 
000200 


000640 
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166764 


000710 
000710 
166670 
166652 


166646 


13-JUN-78 
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COMMAND EXECUTE SUBROUTINE*t+t® 


EXECX: 
EXECXA: 


BNE 
EXECXX: RTS 


UDES,aTC 
WCNT ,awc 
FCNT,@FC 
BADDR ,a@BA 


SCNT ,@FC 
FUN,@C1 
RDYDX,R3 
R4 


OPDYX,R3 
R3 
EXECKA 
PC 


;LOAD TAPE CONT 
;LOAD WC 

;LOAD FC 

;LOAD BA 

;SEE IF SPACE FORWARD 
;1F SO: BR 

;SEE IF SPACE REVERSE 
;1F NOT: BR 

;SET SPACE COUNT 
;LOAD OP-CODE + GO 
3SET DELAY 

;SEE IF DRY 

;1F SO: BR 

;DELAY FOR DRY 


;DELAY 
;RETURN TO CALLER 


SEQ 0050 
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sREWIND SUBROUTINE *t*eeee 


011700 000240 
012620 PC, INIT1 
000007 166574 #7,aC1 
040000 M on 


RWNDA: 
B RWNDA ; DELAY 
020000 166570 RWNDB: #20000,a0S 
RWNDB AWAIT PIP 


000002 166560 SEE IF BOT 


:IF SO: BR 
000610 EMADDR ,R4 
013442 PC, TTOUT PRINT HEADER 
014452 #ASG2,R4 
013442 PC, TTOUT PRINT REWIND ERROR 
003022 J TSCD2 pdt TO SECHEDULAR 


012620 PC, INIT1 : INI 
R PC RETURN TO CALLER 


: INIT 
START REWIND 


011774 000207 
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C2zT 


UQA.P11 


g 


Qukwn—o 


13-JUN-78 10:34 


011776 005037 000712 
166514 
040000 


166476 
002000 


000200 
000660 


000001 
020000 


000606 


000606 
000610 
013442 
000626 


013442 
015136 
002000 


015144 
013442 
000630 


013442 
004000 


016457 


012316 013560 
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000664 
166504 


000716 
000660 


000712 
166462 


166404 


166360 


ERPT: 


B 
ERPTA1: 


ERPTG: 


ERPTIA: 


ERPTB: 


J 
ERPTB1: 
B 


13-JUN-78 


SE 

aos, DSAV 
#40000, ads 
he 


@ER,R4 
#2000 ,UDES 
ERPTA1 
#200, STMSK 


#2000,aTC 
ERPTIA 
#ASG21,R4 
PC, TTOUT 
ERRP1,R4 
ERPTB1 

PC, TTOUT 
#4000 ,aswR 
ERPTC 


PC. OCTPE 


N 4 
13:44 PAGE 52 


SEQ 0052 


sERROR CHECK SUBROUTINE *t**t® 


CLEAR FLAG 
sSAVE DRIVE STATUS REGISTE® 


‘GET UERROR REGISTER 
;SEE IF PE 


IF SO: BR 


[RESET PEF MASK 
MASK DONT CARE BITS 


:1f NO UNEXPECTED ERRORS: BR 


SET FL 


AG 
sSEE IF Se PRINT ERRORS 


iF 


NOT: B 
SEE IF DONE HEADER 
IF SO: BR 


:SET HEADER FLAG 


sPRINT HEADER 
:GET ERROR CODE 
z1F NONE: BR 
;PRINT ERROR CODE 
7SET NRZ TAG 


; SEE ha PE 
cif N BR 
‘ELSE. SET PE TAG 


PRINT CODE 2 
SSEE IF ITERATION 
:1F NOT: BR 
;PRINT ITER TAG 
;PRINT ITERATION 
;PRINT REGISTER TAG 
sPRINT CS1 

PRINT 

PRINT 

PRINT 

PRINT 

;PRINT 

;PRINT 

PRINT 





“ 
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012322 005777 166222 ERPTD: aswrR ;SEE IF HALT ON ERROR 
100001 B ERPTX ;1F NOT: BR 
000000 


004737 012620 ERPTX: PC, INIT : INIT 
012336 000207 ERPTXX: PC ; RETURN 





TMO3/TU4S BASIC FUNCTION TEST 
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012340 


012376 


012400 


012436 


012440 


012456 


012460 
012462 


012464 
012470 


012472 


012510 


13-JUN-78 1 


032737 


000207 


000240 


000207 


012701 


000207 


005001 
000770 


012701 
000765 


005001 


000207 


10:34 
000004 000664 T¥CHK: 
TMCHKO: 
000712 TMCHK1: 


016467 000630 


012052 
000630 
DSUP: 
020112 DSO: 
000720 
000740 
000640 
021624 
1$: 
177777 DAT1: 
000640 DATIA: 
1$: 
DAT2: 
125125 DAT3: 
DAT4: 
001500 
1$: 


MACY11 30(1046) 


-. 
13-JUN-78 13:44 PAGE 54 


; TAPE MARK STATUS CHECKeteterecer 


BIT #4 ,DSAV ;SEE IF als SET 

BEQ TACHKI ;1F NOT: BR 

RTS PC ELSE RETURN 

TST SERFL ;SEE IF HAD ERROR 
BNE TACHKO z1F SO: BR 

MOV #ASG57,ERRP1 :SET ERROR CODE 2 
JSR PC,ERPTG 3GO PRINT TM ERROR 
CLR ERRP1 [CLEAR CODE 2 FLAG 
RTS PC ;RETURN 

ZDATA SETUP ROUTINE teeeereree 

NOP 

MOV #WDATA,R3 7R3 = ADDRS OF WRITE BUFFER 
MOV PATRN,R1 +4 = PATTERN SELECTOR 
ASL R1 MAKE PATTERN SELECTOR EVEN 
JSR PC ,aDATBL(R1) °60 GENERATE PATTERN 
MOV #640,R2 ;R2=BUFFER SIZE +2 
MOV #RDATA,R1 [R1=READ DATA START 
CLR (R1)+ ;CLEAR BUFFER 

DEC R2 :SEE IF DONE ALL 
BNE 1$ ;1F NOT: BR 

RTS PC EXIT 

TALL ONESttteeeeere 

MOV #-1,R1 ;R1=DATA 

MOV #640,R2 ;R2=WORD COUNT +2 
MOV R1,(R3)+ ;LOAD BUFFER 

DEC R2 7SEE IF DONE 

BNE 1$ 31F NOT: BR 

RTS PC 

SALL ZEROSteeeeererte 

CLR R1 :R1=DATA 

BR DATIA ;LOAD BUFFER 
;ONE/ZERO IN ALTERNATING CHARACTERSteeeneeeere 
MOV 4 tial R1 ;R1=DATA 

BR DAT1 ;LOAD BUFFER 

SALL BITS O-377eeeeeeerer 

CLR R1 ;RI=STARTING DATA 
MOV #1500,R2 ;R2=CHARACTER COUNT 
MOVB R1,(R3)+ ;LOAD BUFFER 

INCB R1 ;BUMP DATA 

DEC R2 ;SEE IF DONE 

BNE 1$ :1F NOT: BR 

RTS PC 


SEQ 0054 
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sSCOPE LOOP ON ERROR SUBROUTINEteeeneaeee 


012512 000240 : 
040000 166026 B — tT be LOOP ON ERROR 


PC ZELSE EXIT 
000674 ; SCOLP ;SEE IF SCOPE ADDRESS 
re} 5 NOT: BR 
PC SELSE EXIT 
: (SP)+, (SP)+ [RESET STACK 
012542 000177 166126 ascoLP [LOOP ON ERROR 
STEST ITERATION SUBROUTINE teteeeeees 


012546 000240 


004000 165772 #4000, aSwR :SEE IF ITERATIONS 
2$ F BR 


:1F SO: 
000662 : ITCNT >CLEAR ITERATION COUNTER 
PC sELSE EXIT 
000730 : PCNTR :DO0 SINGLE SUBTEST ITERATION 
1$ :O0N FIRST PASS 
000662 ITCNT :BUMP COUNTER 
000662 000566 — sSEE IF — ALL 


:IF SO: 
(SP)+ RESET STACK 
166060 @ITRLP,RO SET ITERATION POINTER 
012616 000110 (RO) :GO ITERATE 


INITIALIZE SUBROUTINE t# teterere 


012620 000240 : NOP 

012622 012777 000040 165670 MOV #40,aCS : INIT 

012630 013777 000612 165662 : MOV DRVN,aCS SELECT DRIVE 
012636 013777 000614 165676 MOV SLVN,aTC SELECT SLAVE 
012644 000207 RTS PC ; RETURN 
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MAG TAPE INTERRUPT HANDLERetteteeene 


012646 000240 : NOP 
012650 013716 000646 MOV RTRN, (SP) RETURN TO (RTRN) 
012654 000002 RTI ; RETURN 


sTTY INTERRUPT HANDLER*ettteetere 


012656 017746 165672 : aTKB,-(SP) sGET CHARACTER 
000260 a #200, (SP) CLEAR PARITY BIT 
000003 ate BRANCH IF NOT CONTROL C 


001662 _—— : INHIBIT C IF CHAIN MODE 
165640 aPsw 


000200 a#200 RESTART PROGRAM 
000001 : | ai ;BRANCH IF NOT A 


000176 000550 #SWREG, SWR BRANCH IF HARDWARE SWR IS INVOKED 


3$ 
177570 000550 #177570,SWR : INVOKE HARDWARE SWR 
014320 PC,.SAVE SAVE REGISTERS ON THE STACK 
016743 #MSG70,R4 ; TYPE ‘HARDWARE SWR IN USE' 
013442 PC, TTOUT 
014342 PC, RESTORE 
000007 : awe BRANCH IF NOT G 


000176 000550 : #SWREG, SWR zs INVOKE SOFTWARE SWR 
014222 PC,GTSWR ;GET SOFTWARE SWITCHES 
(SP)+ :POP CHARACTER OFF THE STACK 
013002 000002 


;BUS ADDRESS TRAP HANDLER*teteeteee 


013004 000240 : 
020000 165534 B #20000 ,aSWR SEE IF SHOULD PRINT ERRORS 
TRAP2 :1F NOT: BR 
000606 HDRFL ;SEE IF DONE HEADER 
TRAP1 :1F SO: BR 
000606 HORFL sELSE SET HEADER FLAG 
EMADDR ,R4 
PC, TTOUT PRINT HEADER 
: #MSG24,R4 
013442 PRINT ERROR 
3 :GET ADDRESS THAT CAUSED THE TRAP 
013572 J :PRINT ADDRESS OF TRAP 
165466 : ;SEE IF HALT ON ERROR 
B :1F NOT: BR 


: (SP)+,(SP)+ sRESET STACK 

003250 000674 M #FTIA,SCOLP :SET SCOPE ADDRESS 

012512 :GO SEE IF SCOPE LOOP 

000722 :SEE IF ge aa ADDRESS TEST 


NOT 
013110 000137 001766 ELSE REDO ADDRESS REQUEST 
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ser 013114 000137 003254 TRAPXX: JMP FT1B ;RETURN TO TEST 1 
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FRR RERA TERETE AEE EE AERA RARA KEKE E ERE 


TTY ENTRY SUBROUTINE: 


: THIS SUBROUTINE IS USED BY THE TEST CONDITION 
ENTRY ROUTINE TO READ THE RESPONSE ENTERED 
zAT THE TTY AND CHECK THEM FOR LEGALITY AND 
sLIMITS. ALL RESPONSE MUST BE TYPED IN OCTAL 
:(0-7) AND MUST FALL WITHIN THE LIMITS SET BY 
THE CALLING ROUTINE. 

:I1F AN ENTRY IS ILLEGAL OR OUTSIDE THE LIMITS, 
sA QUESTION MARK IS TYPED (?) AND THE RESPONSE 
:MAY BE REENTERED. 

ENTRIES MAY NOT EXCEED SIX (6) CHARACTERS AND 
;MAY BE TERMINATED AT LESS THAN SIX BY TYPING A 
; CARRIAGE RETURN 


FERRARA AAAAAA AREER AERA AAAAEAERAERERARAREREREKAREKEAREE EE 


033120 010146 : R1,-(SP) SAVE CHAR COUNT ON STACK 
: (SP),R1 RESTORE CHAR COUNT (FOR U) 
000652 > tea :CLEAR FIRST CHARACTER FLAG 
013400 : PC,TTIN :GO READ CHARACTER 
000003 000602 a :BRANCH IF NOT C 


000200 a#200 
000015 000602 3 tree 


; OT: BR 
000652 TEMP1 SEE IF “FIRST CHARACTER 
9$ :1F SO: BR 
6$ sELSE GO LOAD VALUE 
000025 000602 : Fa ;BRANCH IF NOT CONTROL U 


016663 #MSG65,R4 TYPE <CR><LF> 


013442 
108 sRESTART 
000177 000602 : 3. BRANCH IF NOT ‘RUBOUT’ 


;REMOVE LAST CHARACTER 


?0 
016665 #8SG66,R4 sve * * 


013442 PC, TTOUT 
R1 :DECRENENT CHAR RECEIVED COUNT 
1$ :GET NEXT CHARACTER 

00006 000602 : SEE IF CHAR IS LESS THAN 0 
4$ :1F NOT: BR 

013360 ELSE GO TO ERROR 

000070 000602 : SEE IF CHAR IS GREATER THAN 7 
5$ :1F NOT: BR 

013360 sELSE GO TO ERROR 

000652 : SET FIRST CHARACTER FLAG 


:SHIFT 3 LEFT 
013312 006300 
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013314 042737 177770 000602 #177770,TIB sSTRIP ASCII 
053700 000602 TIB,RO ;LOAD CHARACTER 
005301 1 SEE IF DONE 
:1F NOT: BR 
SEE TF — MAXIMUM LIMIT 


013360 sELSE GO TO ERROR 
SEE IF BELOW MINIMUM LIMIT 
:1F NOT: BR 
013360 sELSE GO TO ERROR 
LOAD VALUE 
: ;POP CHAR COUNT OFF STACK 
013356 000207 sEXIT 


ENTRY ERROR SUBROUTINE tteeeeenne 


013360 012704 014677 $ #MSG7,R4 

004737 013442 J ;PRINT? 

005726 POP CHAR COUNT OFF STACK 

162716 000020 RESET SP TO START OF VALUE ROUTINE 
013376 000207 PC ;REDO VALUE ENTRY 


READ SUBROUTINE *ttetereeee 
013400 005277 165146 aqtks 


165142 aTks 
1$ 


165136 000602 aTkB,TIB 
000200 000602 #200,TIB STRIP PARITY BIT 
000602 000600 T1B,TOB sMOVE CHAR TO OUTPUT BFR 
013542 PC, TOG ;AND TYPE IT 
013440 000207 PC 


OUTPUT SUBROUTINE tttterereete 


013442 112437 000600 : (R4)+,TOB 
000043 000600 


000045 000600 
013542 


000015 000600 
013542 
000004 
000600 
013542 


200 FILLERS 
000012 000600 
013542 
165010 


000600 165002 
013556 000207 
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2220 
2221 
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013560 


013762 
013764 


014010 


012737 
010304 


000207 
005237 


000000 


000001 


014010 


013770 
013732 
100000 
000001 
01374¢ 
013642 


013746 


013746 


013746 


013746 


013746 


013746 
000240 
013542 


177770 
014010 


014010 
000260 
000600 
013542 


MACY11 30(1046) 


014010 


000600 


OCTPE: 


OCTP: 
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sOCTAL OUTPUT SUBROUTINE tttettereene 


OCTPE1: 
B 


OCTPO: 


OCTP3: 


OCTPG: 


OCTPGO: 
OCTPG1: 


PC,OCTPG1 
OCTP3 
#100000 ,R4 
OCcTP1 


PC 
#177770,R4 
OCTPGO 


OFL 
OCTPGO 


;CLEAR FLAG FOR LEADING ZERO 
:SEE IF NUMBER IS ZERO 

:1F NOT ZERO: BR 

sELSE PRINT ZERO 

SPACE AND EXIT 

;SEE IF MSD = 1 

7 1F NOT: BR 


;PRINT 1 


PRINT 0 


:POSITION DIGIT 


sPRINT DIGIT 2 


sPRINT DIGIT 3 


PRINT DIGIT 4 


sPRINT DIGIT 5 
PRINT SPACE 
sEXIT 


sFIRST CHAR FLAG 


SEQ 0061 
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sDATA CHARACTER OUTPUT SUBROUTINE*t#eeeeeeene 


014012 005037 000600 TOB 
#10,R4 ;SET NUMBER TO PRINT 
R3,T0B 
164524 : aTPs 


1$ 
000200 000600 _ 
000061 164506 a 


3 
000060 164476 : #060,aTPB 
000600 : TOB 


014072 000207 


014074 013703 000656 TEMPS ,R3 
014100 R3 
014102 014012 PC,DOUT 
014106 000656 TEMP3,R3 
014112 014012 PC,DOUT 
014116 000207 PC 


3TU4S SERIAL NUMBER PRINT SUBROUTINE**teexeeee 
014120 010304 


GET FIRST DIGIT 
014176 ee :GO PRINT 


;GET SECOND DIGIT 
: RIN 


014176 :GO PRINT 


GET THIRD DIGIT 

014176 :GO PRINT 
3,R4 :GET FOURTH DIGIT 

014176 a :GO PRINT 


sEXIT 
00026C 000600 SNPG: #260,T0B :SET BASE = 0 
177760 #177760,R4 :MASK DIGIT 
000600 R4,T0B :SET ASCII 
013542 aaa sTYPE DIGIT 


014220 000207 C ;RETURN 
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014222 


014316 


014320 


014340 


014342 


014362 


022737 


000207 


010546 


000207 


012666 


000207 


000176 
014320 


014342 


000014 


000014 


BS. 
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;ROUTINE TO LOAD NEW VALUE INTO SWITCHES 


000550 GTSwR: ae ee 


PC,.SAVE 
#SMSUR,R4 
PC, TTOUT 
@SWR,R3 
PC,OCTPE 
#SMNEW R4 
PC, TTOUT 
SWR,RS 


#7,R1 
#177777 ,R2 
#0,R3 
PC,TIR 


PC, RESTORE 
1$: PC 


; BRANCH IF SOFTWARE SWR 
NOT INVOKED 
“SAVE REGISTERS ON THE STACK 


TTR ROUTINE RETURNS NEW VALUE TO (R5) 
LIMIT RESPONSE TO 7 CHARS 
BETWEEN 0 AND 177777 


RESTORE REGISTERS 


ROUTINE TO SAVE REGISTERS ON THE STACK 
~SAVE: MOV 25,-(SP) 


0,-(SP) 
14(SP) ,-(SP) 
PC 


R5 IS SAVED AT 12(SP) 

ERG IS SAVED 

::R3 1S SAVED 

3:R2 IS SAVED 

:3R1 IS SAVED 

3:RO IS SAVED (S 

3:PUSH RETURN ON THE STACK 
:;RETURN TO CALLER 


;;ROUTINE TO RESTORE REGISTERS SAVED ON THE STACK 


RESTORE : MOV (SP)+,14(SP) 

(SP)+,%0 
(SP)+,21 
(SP)+,%2 
(SP)+,2%3 
(SP)+,%4 
(SP)+,2%5 
PC 


::STORE RETURN PC ON STACK 


7 RETURN 


SEQ 0063 





Mm 5 
THO3/TU4S BASIC FUNCTION TEST  MACY11 30(1046) 13-JUN-78 13:44 PAGE 64 
CZTUQA.P11 13-JUN-78 10:34 SEQ 0064 


MESSAGE TABLEtttre 
014364 041445 030523 aoeee MSGI: .ASCII /%CS1 we BA FC cS2 


-ASCII /DS ER TC2#/ 
-ASCII /ZREWIND ERROR#/ 
051105 047522 
046524 ches : ASCII =/22TMO3-TUSS BASIC FUNCTION TEST (CZTUQA0)2%/ 


/TYPE <CR> TO TERMINATE RESPONSE & C TO RESTARTZ#/ 


051101 022524 


042522 044507 bs *« /ZREGISTER START = 
051105 051440 
052122 036440 


041505 047524 rs /ZVECTOR = #/ 
043 


020104 $ « /ZEND OF PASS #/ 
051501 


043 tf  « /? #/ 
044523 Rte /ZPOSITION ERROR: #/ 
042440 
051117 020072 


051104 053111 bs /ZORIVE NUMBER: #/ 
041115 


043 
053101 DT ws /ZSLAVE NUMBER: #/ 
041115 


043 
052111 Es /RWRITE ERROR #/ 
047522 


oes iee i « /ZREAD REVERSE ERROR #/ 
015016 042523 042440 051122 
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015024 051117 021440 
020104 MSG14: .ASCII /ZREAD FORWARD ERROR #/ 
051101 
047522 
052111 MSG15: .ASCII /ZWRITE TM ERROR #/ 
MSG16: .ASCII /ZREVERSE ERROR #/ 
051122 


040527 : .ASCII /ZFORWARD ERROR #/ 
051122 


021440 : ASCII / NRZ #/ 
043 > ASCII / PE #/ 
052120 : ASCII / EXPT: #/ 
042126 : ASCII / RCVD: #/ 


020123 : ASCII /ZBUS TRAP: 
050101 020072 


041527 020072 >: ASCII /2WC: #/ 

040502 020072 >: .ASCII /2BA: #/ 

041104 020072 : .ASCII /2D0B: #/ 

047111 052111 : ASCII /ZINIT DID NOT CLEAR RH #/ 
042111 047040 

041440 042514 

051040 020110 


041523 047040 : /%SC NOT RESET BY INIT #/ 


/ZTRE NOT RESET BY INIT #/ 


MSG31: /%CS2 NOT RESET BY INIT #/ 


MSG32: /Z0LT NOT SET #/ 
051440 052105 


020103 047516 MSG33: /%SC NOT SET #/ 
042523 020124 


051124 020105 MmSG34: /ZTRE NOT SET #/ 
weit 042523 


015437 5 051111 047040 msG35: /Z1R NOT SET BY INIT #/ 
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015444 052117 051440 052105 
047111 


047516 2 /ZOR NOT RESET BY INIT #/ 
/ZOR NOT RESET BY 1 SILO ENTRY #/ 


052116 054522 


020122 047516 ts /ZOR NOT SET BY SILO FULL #/ 
020124 
046111 
046114 


051440 : .ASCII /%BAD SILO READ #/ 
042522 


047516 : .ASCII /ZIR NOT RESET BY SILO FULL&/ 
042523 , 

051440 

052506 


026516 MSG41: . /ZNON-EXIST DRIVE#/ 


MSG42: /ZNON-EXIST SLAVE#/ 


MSG43: . /ZSERIAL NO: #/ 
047040 035117 


040522 042523 MSG44: . /ZERASE HEAD INOPERATIVE#/ 


MSG45: . /%POSSIBLE ERASE HEAD PROBLEM: / 


/CHECK POLARITY#/ 
044522 


026524 MSG46: . /ZSET-UP WRITE ERROR#/ 
044522 
051122 


041501 MSG47: . /ZSPACE FORWARD ERROR#/ 
053522 
051105 


016114 051445 040520 042503 msG48: . /ZSPACE REVERSE ERROR#/ 
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016122 051040 053105 051105 
051122 


043106 a /ZBUFFERED WRITE ERROR#/ 
/ZBOT SET AFTER BUFFERED WRITE#/ 


044522 042524 
047516 041040 i « /%NO BOT FROM READ IN PRESET#/ 
047522 
042101 
051120 
043 
044440 t » /ZTC INCORRECT #/ 
042522 
043040 kw /ZMOL FAILED TO CLEAR#/ 
020104 
042514 


051505 t « /ZEZRESET SLAVE TO ON LINE BEFORE CONTINUING/ 


052516 047111 
042523 020124 . /%ZSET SW12=1 IF YOU DOT WISH TO REPEAT THIS TEST#/ 


042524 052123 
052111 051105 i % / ITER: #/ 
043 


046524 047040 Et /2TM NOT SET#/ 
051440 052105 


044505 044124 _ /ZEITHER TAPE NOT ERASED OR OPI PROBLEM#/ 


/ZRH ONLY (NO=0,YES=1): #/ 


016560 054514 024040 
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030075 054454 051505 
030475 
MSG63: . ASCII /%D1D NOT AUTO SELECT NRZ#/ 


0 

047040 055122 
044504 020104 $ /ZDID NOT AUTO SELECT PE#/ 
020124 052501 
051440 046105 
020124 042520 

043 : /%4#/ 

043 : / #/ 
051105 020072 _ /ZER: #/ 


042522 047515 : .ASCII /ZREMOVE TMDP FROM SLAVE TO BE TESTED%Z#/ 


042524 


042122 : /ZHARDWARE SWR IN USER#/ 
051440 
0 020116 
016764 051525 022505 043 
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sTEST HEADERS teat 


016771 045 043045 030524 MSFT1: .ASCII /2Z2ZFT1:RH ADDRESSING #/ 
sat 


035062 MSFT2: .ASCII /22%FT2:RH REGISTER BITS TEST #/ 
043505 
020122 
052040 
043 


4 
031524 MSFT3: /ZRFT3:RH INITIALIZE TEST #/ 
047111 
044514 
051505 


032124 MSFT4: /ZZF1T4:RH11 SILO TEST 1 #/ 


020124 020061 


043045 032524 MSFTS: /ZZFTS:RH11 SILO TEST 2 #/ 
030510 020061 
047514 052040 
020124 020062 


043045 033124 MSFT6: .ASCII /22FT6:RH11 SILO TEST 3 #/ 
030510 020061 
047514 052040 
020124 020063 


043045 033524 MSFT7: /ZRFT7:RH11 SILO TEST 4 #/ 
030510 020061 
047514 052040 
020124 020064 


043045 030524 MSFT10: .ASCII /2%2FT10:RH11 SILO TEST 5 #/ 
044122 030461 
046111 020117 
052123 032440 


052106 030461 MSFT11: /ZZFT11:NOP TEST#/ 
052040 


031061 MSFT12: /RZFTI2:REWIND TEST#/ 
047111 
04252¢ 052123 


043045 030524 MSFT13: /ZRFTIS:WRITE-READ TEST#/ 


MSFT14: /RZFTIG:SPACE TEST#/ 


017376 051472 
017404 ; 052040 
017412 ‘022445 052106 032461 MSFT15: /ERFTIS:ERASE TEST#/ 





F 6 
ds lage —s FUNCTION TEST MACY11 30(1046) 13-JUN-78 13:44 PAGE 70 
CzT P11 13-JUN-78 10:34 SEQ 0070 


017420 042472 040522 ests ty 
MSFT16: .ASCII /22%FT16:TAPE MARK WRITE-READ TEST#/ 


042524 
030524 MSFT17: .ASCII /2Z2FT17:1M SPACE TEST #/ 
051440 
052040 
043 
031124 MSFT20: . /ZZFT20:WRITE CHECK TEST #/ 
052111 
041505 
042524 052123 


052106 030462 MSFT21: . /ZZFT21:ERASE HEAD TEST#/ 


MSFT22: . /Z2ZFT22:BUFFERED COMMAND TEST#/ 
MSFT23: .ASCII /2%2FT23:READ IN PRESET TEST#/ 
042524 


031124 MSFT26: . /2ZZFT26:REWIND-OFF LINE TEST#/ 


MSFT24: . /2ZZFT24:AUTO DENSITY SELECT: WRITE-NRZ,READ-PE#/ 


MSFT25: . /EZXFT25:AUTO DENSITY SELECT: WRITE-PE,READ-NRZ#/ 


043 $CNTG: .ASCII /% G#/ 
053523 036522 S$MSWR: .ASCII /2SWR= #/ 


020076 020040 042516 036527 S$MNEW: .ASCII / NEW= #/ 





TMO3/TU45 BASIC FUNCTION 10:44 


CZTUQA.P11 13-JUN-78 1 


2734 020104 021440 
2735 020106 022477 
2736 


020112 
020112 000000 
021624 
021624 000000 


000001 


043 


MACY11 30(1046) 


SQUEST: 


WDATA: 
RDATA: 


G 6 
13-JUN-78 13:44 PAGE 71 


-ASCII = /2%#/ 


EVEN 
.=.+1510 
0 
- END 





H 6 
TMO3/TU4S BASIC FUNCTION TEST  MACY11 30(1046) 13-JUN-78 13:44 PAGE 73 
CZTUQA.P11 13-JUN-78 10:34 SYMBOL TABLE SEQ 0072 


000526 011666 007376 004132 017105 
017135 
017165 
017215 
014364 
014725 
014745 
014765 


0 
011646 007330 FI4ERC 004170 017053 016457 








TMO3/TUSS BASIC FUNCTION TEST 
CZTUQA.P11 13-JUN-78 10:34 


016467 


013642 
021626 000 


ERRORS DETECTED: 0 


CZTUQA.SEQ/SOL_CZTUQA.P11 
RUN-TIME: 24 40-2 SECONDS 
RUN-TIME RATIO: 112/67=1.6 
CORE USED: 14K (28 PAGES) 


MACY11 3 


013732 


000672 


0(1046) 13-JUN-78 
SYMBOL TABLE 


I 6 
13:44 PAGE 74 


000642 


000654 


000656 


003022 


003054 


014320 


SEQ 0073 





